LABEL OOOOOOOOOpRINTErt0017504>9CC tX GB JEC T/RE AU ; F I LE SOURCEP' lLE«5YMBQu/AF ILTER* END* 



OBJECT /READ 
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h 
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YILTBFL^ 
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2 
3 

5 



7 
8 



10 

11 

12I 
,13-*" 

!m 

lftl 

.7I 

'18| 
IS 

:- 
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07 

38 

39 

40 

41 

42 

43 " 

«4 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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COMMENT 
J 



COMMENT! 



* * * * *.*.*_* 

'THIS MATERIAL IS 

CORPORATION AND IS 
■QB_ai&£l.O S EP EX CFPT 



-AL£flk-£IkI > S R U T I N X 



******** 



PROPRIETARY TO BURROUGHS 
NOT TO BE REPRODUCED* USED 
TN ArfiflHDAKiC r WITH PRHfiWAM 



.00001000 

800002000 

J...O.ilP..fiiQOO 

00003010 

00003011 
DXLQ.Q-20-12- 



LICENSE OR UPON WRITTEN AUTHORIZATION OF THE 
PATENT DIVISION OF BURROUGHS CORPORATION* 
.■OEJEniTf MICHIGAN 4ti ?32 t - . . 



00003013 
00003014 

jLooflLaais- 



COPYRIQHT (C) 1968* 1971, 1972 

BURROUG H S CO RP ORA T ION D ETR OIT* 



-MICHIGAN- 



00003016 
00003017 

nooaaoia. 



AA32500; 



JAME S Ct PAU L03/26/66^_ 



00003019 

jooooaooo 

JQ QOQ5 QC0. 



JE <? .1 N COM ME N i_ OUTERMOST BLOCK TO FIX THE BLO CK * RECORD SIZES FOR T HE 



«00006000 

;00007000 

000 08000 



REAL 
IN II.GE.R 
INTEGER 
COMMENT 

BOOLEAN 
VAL 



input files 
debugn; 

_ Jjl*L_Kj_ZjL 



"TAPE" AND "CARD", **********i 

% DEBUGGING THE GENERATED CODES, 
_JL.aUlCjl_LJi££flHIL^XA£jL-AL&Ii. SCR ATCHE S 



DO N 
TO_S 
STRE 
UE 



OT DlST 
EO N0,0 



AM PROC 
..BlGi.N 



i i# ji; 

URBE THE ORDER OK THE FOLLOWING DECLARATIONS CUP 

0033000)»PR0C»DSkFIl£ DEPEN DS ON EX I STING OR DER; 

EDU~RE DSKFlLE(FbQ); % CHECK IF IT IS A DISK FIle". 

fsc; 



si*loc oskfile; susi-7* 
duloc oskfile; 01*01 + 51 

9(IF Sfi THEN DS+SET ELSE 



skip 3 db; 
ds +reset; ski p sh); 



*/0000900C 

oooioooo 

ooon.go-0- 

00011100 

00011900 

Q00il.9_.l_Q 

00012000 
00013000 

QJ3i?.i_._Q_QiL 

00015000 
00016000 

Q.Q01Z.O0JL 



0S<-LIT«<3«; SUDSKFILE; DI*lOC dSkFILE; 0S«-wDS; 00018000 

Si*-DSKFILE; FSQ<Si*SI+40)) si*si + 3i; 00019000 

J. F Sg="-" Th L N T_AL iJ>_l ElSF 0QO2Q0QQ. 



if sc>"9" then 

dskfile«-tally; 

end d skfilfj 



TALLY*! ELSE TALLY*0/ 



IF DSKFlLE(l) THE* % 
BEGIN 1*10; J*150 END 
IF D5KF1LEC2. THEN % 



BEGIN K*2i 2*150 END ELSE 
IF DSKFILEC3) TH£N% 3 FOR 
BEGIN Ii.«lQJJll«l50 END* 



1 FOR INPUT FILE 

ELSE HtGlN 1*56; 

_2 FO R INPUT FILE 



"TAPE", 

j*io end; 

"CARD". 



00021000 
00022000 

.juifliinnn. 

00024000 
00025000 
00026000 



BEGIN K*5j Z*10 END; 
OUTPUT FILE "NEWTAPE" 
OUTPUT TO DISK 



BEGIN COMME 
FILE OUT 



ELSE BEGIN Ul*5ti Jll«lo; ENOJX OCRDIMG TAPE 
NT THIS IS THE BEGINNING OF THE PRGGKAM, ******* 
LINE 18( \> 15); 



00027000 
00027100 
0002720 



FILE 
FILE 
SAVE FILE 



FILE 
FILE 
SAVE ARRAY 



TAPE(2*I*J); 

PACH "CARD"(K*10,Z); 

NEWTAPE DISK SERIAL C20 » 30003 C 2* I 1* J1>S AVE 100); 



00027300 
*;00028000 
000290 00 



00030000 
00031000 
00032000 



PUNCH 0(2*10); 

DFSK DISK RAND0M120- 1003(1»12'60); 

CVCOJIU; % OLD CARD IMAGE. 



00032500 
00033000 
00034000 



TfiVE ARRAY 
SAVE ARRAY 
SAVE ARRAY 



ARRAY 
ARRAY 
ARRAY 



CHOJllJ* X 
DCHQUIJJ 
EVCOI193J X 



NEW GENERATE CARD IMAGEt 00035000 

* CARD IMAGE FOR BUILDING DEFlNEt 00036000 
RESULT FROM SCANNING, 00370 00 



PC*PPC[OTl2 3; X PREVIOUS CARD IMAGE, 
STKHDC0«124J; % SCRAM6LED-I NiJEX ARRAY, 
IKF0C0»31*0:255.; ill IDENTIFIER STORAGE 



ARRAY 



00038000 
00039000 
00040000 



ARRAY 
ARRAY 
ARRAY. 



CB[OI99*0UU> X GENERATED CARO IMAGES, 
INFCOlin; ft DEFINE ENTRY TO INFO.***]. 
STRE Q l7iQ »49 3; % ST ORE F OR SC A NNING. 



00041000 

00042000 

-fl-OOJUCOfl. 



»• • 



r- 



* 



7 

a 

9 

in 
11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

V 



ARRAY 
ARRAY 

XNlEGXB. 
INTEGER 
INTEGER 

JNTEGER 
INTEGER 
INTEGER 
INTEGER 



INTEGER 

INTEGER 

-UJEG ER . 



INTEGER 

INTEGER 

JLl\1£S.ELB. 



INTEGER 

INTEGER 

■I NTE GER- 



iNlEGER 

INTEGER 

1MJLG.LR. 



INTEGER 
INTEGER 
INTE GER 



INTEGER 
ARRAY 
.lMEfiE.fi 



INTEGER 
INTEGER 
INTEGER 



INTEGER 

REAL 

REAL 



REAL 

REAL 

REAL 

REAL" 

REAL 

REAL 



REAL 
REAL 



REAL 

BOOLEAN 
BOOLEAN 



ACTtOsn; % STORAGE OF DOLLAR CARD FOR DELAY ACTIUN. 00044000 
A»BC0I14]; X bCRATCM ARRAYS. 00045000 

.XEX1 JL.1MLA-QL -1.N.F.Q L* t * A Ik IHE_..SXlAIiNlNiU. - - QflflAAflDO 

CCC; X STARTING ADDRESS UF THE CURRENT SCAN, 00047000 
CC; X CURRENT AOORESS IN CARD BUFFER. 00048000 

ESTjEETJ % STARTING ADDRESS OF CARD BUFFER , CvC»]. QO 0.4 9 000. . 



CED' 

cst; 

1ST* 



ic; 
dst; 



% ENDING ADDRESS OF CARD BUFFER. 
% STARTING ADDRESS OF CARD BUFFER. 

% S TARTING AD DhESS UF_JLLI_0_Li 

X CURRENT ADDRESS OF CIt*]. 

X STARTING ADDRESS OF DCIC*J. 

X MP. OF CHRS SCANNE D. 



NXT> 

ncd; 

-NiLCi. 



nce; 

qutn; 

e rx ; 



% NEXT CHR IN CARD HuFFXR. 

X CARD INDEX OF INPUT. 

% CARD InOEX - OF CURRE NT SCAN 



S TART ED , 



X CARD INDEX Or CURRENT SCAN ENDING, 

% OUTPUT CARD IMAGE COUNT. 

* fBRQR INnlPATTnN DURThfl pnTTIMR. 



00050000 

0Q0510CQ 

00053000 
00054000 

.J&fiQiS&QJl 
00056000 
00057000 

-. 0-005 1-O.DH 
00059000 
00060000 

- 0.041.6X00-0.. 



ERHDFNi * ERROR INDICATION CURING EXECUTING DEF I NE ,00062000 

LFXJ * LOW INDEX OF INFOl***], 000o3000 

JOi |„ hlGHfcST INDEX O F -i-N fCl *> * 3 , 0J1U6JLQCJQ_ 



nfx; 
dfx; 
rf*; 



X NEXT AVAILABLE INDEX OF INF0t*»*3. 00065000 
X MAX INFO-INX OF HESRVD WDS FOR DECLARATN.00066000 
X MAX INFO-INX OF ABSOLUTE RESERVED WORDS. 00067000 



CFX; * MAX i N F - I N X OF CONDITIONAL RESERVED WQS 
XALG[0:213; 

.. XI JJLUiESJ. -I DECI MAL V A LUXJiE.-_i9.9JLS.999 . 

BLKCNTi % BLOCK COUNT. 

DOLLAR; X CARD INDEX AT WHICH S-CARq FUNCTIONS. 

BBB> BB; X N O. OF BLANKS ON THE CARD JUST READ. 

nnc*inc; % new sequence no, and increament. 

INV; % OCT1400000000000000, 

DX; X RECOHO INDEX OF CFSK-FILE. 



.00066000 

00066100 

....0X0.6.9.0-0.0 



ldf; 
llf; 
cbx; 



X CURRENT LEVEL INDEX OF DEFINE EXECUTING, 
X LOWEST DEFINE LEVEL IN "CHECKNEXT", 
X ROW INDEX OF C B-«»» 3. 



00070000 
00071000 
0007 2000 

00073000 
00074000 
00075000 



avc; 
blk; 

A89; 



% NO. UF 
% 3-2ERQ 
% "9 99S> 9 



available chrs 

AND 5-BLAN*. 

999". 



IN CIt>.» 



00076000 
00077000 
Oj0078Q_00 

"060/900"0" 

00060000 
00081000 



T0*T1#T2; X PROGRAM STARTING OATE AND TIME, 00062000 

FST,LST; J! FIRST AND LAST CHR TYPE IN EDITING. 00083000 
NO,NNjNR*NE; X COUNTS OF DElD*NEW*RETAIN£D ANO ERRS. 0Q064000 



R*P»T; % SRATCH REALS, 00085000 

EOF; % END-OF-FILE ON BOTh SYMBOLIC & PATCH. 00086000 
NEWTP; X CREATION OF A NE* SYMBOLIC FILL. 00087000 



BOOLEAN 
BOOLEAN 
BOOLEAN 



nEwtpeo; X THERE IS A NEWTAPE CREATEO, 
PNCH; X PUNCH DECK REQUIRED. 
PNCHEO; X THERE HAS BEEN A PUNCH PECK, 



00088000 
00088300 
00088600 



45 

46 
47 

48 
49 

50 ! 
51 
52 
53 ( 
54 
55 
56 ' 
6? 



BOOLEAN 
BOOLEAN 
BOOLEAN 



RESO; % RESEQUENCE REQUIRED, 

XRESv; X ADD U TO RESERVED WORDS IN XALGOL. 

GENERATE; X GENERATION OF THE CURRENT STATEMENT 



00089000 
00089100 

Q090QQQ 



BOOLEAN 
BOOLEAN 
BOOLEAN 



civalid; x en*] has valid information, 00091000 

NEwCARD; X A CARD JUST READ BEFQRE ANY SCAN. 00092000 
NEWCD; X THE ITEM JUST SCANNED IS 1ST ITEM ON CRD. 00093000 



BOOLEAN 
BOOLEAN 
BOOLEAN 



DFINE; X DURING PROCESS OF A "DEFINE". 00094000 

ENDCMMT; X DURING SCANNING OF COMMENT AFTER "END". 00095000 
B47; X INDICATION OF GENERATING "47-% 00096Q00 



BOOLEAN 

BOOLEAN 
BOOLEAN 



BBK; X BLANK INDICATOR USED IN SCAN-PROCEDURE, 00097000 
ERSTPRNT; X FIRST LINE TO BE PRINTEO, 00098000 

STRM; X DURING PHUCCE5S|NQ Q> A STREAM PROCEDURE. 00Q99Q00 



1 

2 

3 
4 

15 

'e 
I ' 

IB 

;9 

i'° 
1 I 

U 

,13 

'14 

'.j 
,16i 

'71 

ia| 

«! 

:_o 

c 

23 
24 
25 
26 
27 
28 
23 
30 
31 
32 
33 
fMl 
p 5 



BGULEAN SQ1ST; X INCRLaSE 1ST NEW CAKD FOh NONRESEQUEnCE . OOlOOOOO 

BOOLEAN LSTO#LSTN#USTD; * LISTING OF OLD* NEW & DELETED. 00101000 

.&ELLHZ. ZKCbLXI 1 7 1» i 1 SFQlENCE -feUU_Q£_IM£_ai M H 1, 1 C -F I IX ,.~...-QfllU2 0.0.0. 

DEFINE PN0«£VCt8]#J * SEQUENCE NO. OF TH£ PATCH DECK. 00103000 

DEFINE ENOs£VU»]#; % ENDING SEQ NO, UF ITEM JUST SCANNED. 00104000 

J31LIME. FQU s LlNF** CARD*TAPE#< NTP«NFW TAPr*; _ _____)______ 

FORMAT HDMG(X20,"BURH0UtiHS B-55C0 T Q B-6500 ALGOL FILTER"* 00X06000 

X8'A4*U*"* "*A_ : *X3*l2*"'"*I2*Xl*Al* ,, ,M,."/); 00107000 

_£ RM.AJ... ___ TAILUX1Q* . QQiuanoo 

"NUMBER OF CAHDS WITH POSSIBLE ERRORS J"* I 6*". " 00109000 
/X10* 00110000 

__ "NUMBER OF CARDS DELET E D » % I 6* " . "/XlO* OOUlQO O 

"TUTAL NUMdtK OF CARDS IN THE PRUGR AM ; "* 1 6* 00112000 
"; »ETAINEC:"»16,"; GENERATED J", 16* 00113000 

- __.. 1*1/110* &Q114_Q___ 

"TIME USED FUR FILTERING' PROCESSING I «* l«* 00115000 
" MIN, "»I2»" SEC,; ELAPSEDI W *I4#" MIN, N i 00116000 

_._ ______^_.____1_ oon7ooo 

FORMAT D8GU3(10#X1>>; 00118000 

PRUCEDURE OUMPARRAYCA* AX _*aXH*FQU* AB*Al.PH AN AME* NUMBER); 00119000 

■£ Q." MEN T j..t ii * .- i.i-!.t.t.ixi-ij-i-«Lij-ij. t , ■ . b , , , jji-i_,, i « j-t a.. 1-mij-Lij.i . _._■„., ,»,« «,, ,,„., » « . ^^■■ju<-.»-Q-0-1 j 2QOO.O. 

: DUMP OUT THROUGH FILE CFQUJ AN CNE-DI MENSI UNAL ARRAY (A) J00121000 
I STARTING FROM (ACAXL3) TO (ACAXHIN IN ALPHA UBsl) OR OCTAL (AB.Q) »00l22000 

. . I. F.0 R M_ _ (AkPHABA ME) AND (NUMBER) WILL BE SH OWN AS THE HEAOLINF. SJ3I1_1.2J.QQ_Q 

* J. C. PAQ 08/25/65 :Q0124000 

' ...;oc 125000 

VALUE A Xi.* AXH *A B,ALPHAiNAME* NUMB ER; _ flfil.2Afl.0Jl 

INTEGER AXL'AXH'AB, NUMBER/ 00127000 

ALPHA ALPHANAME/ 00128000 

_ array ....,_ acq; ; ____i___.___o . 

FILE FOU> 00130000 

BEGIN 00131000 

ARRAY. L KC0.H 3; 00132000 

INTEGER I#W#L; 00133000 

BOOLEAN BOOL; 00134000 

_ FORMAT TTLt "RE CORD "* A6* 18 * *5* "[ «,2A6," j« ) ; __ _00l_35000 

SWITCH FORMAT f*( "----*"# 6(X2#'"'---" -""-"•"--«-") }, " "00136000 

(X2*'*- ">X2*10(X2*" '*)); 00137000 

DEFINE SLH»F[Ab]»; ___ _ Ofil 380 

LABEL Li; " " "' 00139000 

STREAM PROCEDURE 0CT1 2C I * 01 *Q2 ) ; 00140000 

VALUE i; 0014100 

BEGIN " ' ~ '" " OOU2000" 

SI«-LQC I; Sl«-SI + 2; 00143000 

QI+Qi; Ul»UI+2; 00144000 

6CSKIP 3 DB* 00145000 

3CIF SB THEN DS*SET ELSE DS«-RESETi SKIP SB)); 00146000 

D_I» 02 ; __ _______ ___ 00147000 

6CSKIP 3 DB; 00148000 

3CIF SB THEN Db«-SET ELSE CS«-RESET; SKIP SB)); 00149000 

EMI (JCT12; . . 00150000 

BOOLEAN STREAM PROCEDURE 5AMECA*B»N); 00151000 

VALUE N; 00152000 

________ 00153000 

LABEL LL; 00154000 

si*b; di«-a; tally*o; ooi55ooo 

_™-._____ N(TF B SCXnC THEN JUMP QuT T O LLU 00156000 

TALLY*i; 00157000 

LL» SAMEtTALLY; 00158000 

EJ_Q SA M Ei 0Qi!a9nnn 



• • 



1 1 

. 2 

3 

4 
| 5 

6 1 

I 
I 8 

9 

10 

! 11 

12 

13 
l 14 

IS 

16 
! 17 
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21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

3S 

36 

37 "~ 

38 
3!) 



40 
41 



42 
43 
44 
4B 
46 
47 
48 



♦9 
SO 
51 
62 
53 
54 
55 



STKEAM PROCEDURE EDIT CL> A# I » N# AB ) > 
VALUE i»n*ab; 

- fl£G.lhl - __._ 

local w#t; 



END. 



LL« 



SULUC AB/ Sl*SI + 7; OI«-Li 

.i£_sc.«"Q"_ihm 

BEGIN 



Ui'l 

tally«-6; nctally*tally + 63); totally; 
.si»lqc_i; ps*4 pe c; d i±jL-LU :• «; sua; 



N(DS«-LIT n "J 
2(DS*-LIT " "; 

fl(ns» 3 rese t; 



3CIF 

) ) ); 

-1(054-1 9 L I T 



END £LSE 
BEGIN 

I 

"S 

sua; 

N(US*LIT 



SB THEN DS*-SET ELSE DS«-RESET; SKIP §B> 

- Hi 



00160000 
00161000 
.QJJA&AQ&Q. 
00163000 
00164000 

QfilA5.Q_Q.Q_ 

0016600C 
00167000 

..H_Q__L__.JJfl.QJ.. 
00169000 
00170000 

...Qflil. 10.00 



IN 

ALLY»10; N (TAlLY»TALLY+63)J TOTALLY* 

I*LOC I; DS*-2 LIT" ••; oS*4 DEC; QS + 2 LIT""""/ 

a; 



t« « 



T(0S*11 
END* 
JL&II1 



2C DS4-LIT " " ; D S 4-4 ChR ) ) ; 



UIT it - ~ «■>; DS*2 LIT " "; 

0cTl2(NuMBER»L#w)i" 



WRITE(F0ufDbL3*TrL#ALPHANAME,NuMBER»L-»W>> 
Tr AB = Q THEN W4- 6 ELSE B E..TN Ad» li H»10 END/ 

(L«-(AXH-AXL) UIV W ♦ 1) = 1 THEN W* AXH- AXL+1 i 



O0172Q00 
00173000 

...QjQlZAMil.. 
00175000 
00176000 

0Q.177_Q 00.. 
00178000 

00179000 

ooieoooo 
661 srood 

00182000 
00183000 



-IE 
IF 

FOR 1*1 STEP 1 

3L&1N 



UNTIL L DO 



IF 1*1 THEN GO TQ LL ELSE 

IF IsL THEN BEGIN w*A Xh" C AXL*AxL+W ) + 1 ; GO TO LL END/ 

IF S AMCCACAXLIjACAXL-AXL+W . , 1Q THEN 

BEGIN 

IF NOT BOOL THEN 
BEGIN WRITECFQu,SLH) ; BOQL»TRU E END; 

ENU ELSE 

BEGIN 
IF 8U0L THE N dOQL »FALS .- ; 



00184000 
00165000 

0.018 6QQ0 

00187000 
00188000 
00189000-. 



00190000 
00191000 
00192000 



EDlTCLNC0J#AtAXL3»AXL#W/AB)/ 

IF I«L THEN WHlTE(FQL[DBLJ^lij*LNC*3) ELSE 

WRITE(F0 UM5>LN[*3); 



END 



end; 
end; 
oumparray; 



00193000 
00194000 

Q.Qi9.5.Q0.Q.. 

00196000 

00197000 

QQ.198.00C_ 

00199000 

00200000 

00201000 



addss(s*a>; 



STREAM PROCEDURE 

COMMENT MMMMiiMiHiii • » ««••••*. t ••«.•*..•.»• . • :.» ••..»•,.,.,,,,,,,,,, 

1 THIS PROCEDURE STQRE THE ABSOLUTE ADDRESS QF C A3 INTO (S). » 

........ i r l)»n 11/02/66 --------, 



00202000 
00203000 
00204000 



J. C, PAQ 



00205000 
00206000 
00207000 



BEGI N 



sua* a*si; sulqc a; dus; qs>«.-wqs; 



002C8000 
00209000 
00210000 



END ADDSS; 
STREAM PROCED URE TRNSFBTS(B> A,jjB, AB,B ITS) i 
r_nMMrwr 



COMMENT .,,... .7 

» THIS PROCEDURE WILL TRANSFER "BITS" BITS FRUM "A", BIT POSITION 

t "AB" TO "B"# BIT POSITION "BB". C "BlTS"<4095 ) 

VALUE BB*AB#BITS; 
8EQ IN „ . 



00211000 

00212000 

00213000 

,00214000 

100215000 

100216000 



00217000 
00218000 
002 19QPQ 



8 
9 
10 
11 
12 
13 



17 1 

18 

19 

20 ( 

21 

22 

23 I 

24 

25 

26 ( 

27 

28 

29 I 

30 

31 

32 I 

33 

34 

35 1 



40 
41 I 
42 
43 



46 

47 

48 

49 

SO 

51 

52 

53 I 

54 

65 

66 I 

57, 



a 



w 



local n; 

duloc n; oudi + /; si«-lqc sits; susi + 6; ds«-chr; 
si»a ; skip ab sb; di»b; sk ip dB db; __ 

NC2C32CIF SB THEK DS«-SET ELS~t DS*RESET; SKIP SB))); 

bitscif sb then ds*set else qs«-reset; skip sb); 

_ _ _ end trnsfbts; _____ 

stream procedure trnsfchr(a/b/as*t)s,ch); 

COMMENT 

J TRANSFER FROM (B)» STARTING CHARACTER INQEX.lBS), INTO (A), STARTING* 
{"CHARACTER INDEX (AS), FOR CCH) CHARACTERS, UHS63) > 



VALUE 



AS»BSrCHJ 



00220000 
00221000 
00222000 
00223000 
00224000 
00225000 
001226000 
00227000 
0022B000 
00229000 
00230000 
-Q&23100Q 



BEGIN 

oi*a; dudi + as; 

E ND TRN SF CHR/ 



sub; si*si + bs; 034-ch chr; 



STREAM PROCEDURE TRNSFWpS( A# B> WD ) J 

COMMENT „,, » , ,..,,.,,,.. 

» TRANSFER FROM "B w INTO "A" FOR "WD" WO R DS. ("WO" < AQ95 ) 

{ , , . , # . t . . , t 

value wd; 

_B£G1N_ 

LOCAL 



00*32000 
00233000 
00 2340 00. 



A 



00235000 

00236000 
00237PQQ 



n; 

di«-lqc n; di«-di + /; si*loc wd; si«-si+6; ds«-chr; 

-Oi»Ai_si-B; 



N(DS*32 WDS; ds«-32 wpS); oS+*q kDS; 
end trnsfwds; 

....STREAM PROCEDURE _ CHRTRNSF ( T*f * NC ) '> 

COMMENT , . . , . , ,...,,,,..., 

: THIS PROCEDURE TRANSFERS CN) CHARACTERS FROM ( F ) TO CT), BOTH CF>« 



;00<2380QO 
00239000 

00241000 
00242000 



» A N p ( T) ARE CONSIDERED AS THE ABSOLUTE ADDRESSES. AT THE END OF 



00244000 
00245000 
Q0246Q0Q 
002 4 7000 
00248000 
00249000 



STRANSFERRING* ONLY (T) IS UPDATED, 



J. C, PAD 



04/15/66 



00250000 
00251000 
QQ1252QQQ. 



VALUE 
.LQCAL_.. 



f#nc; 



BEGIN 



wj; 



00253000 
00254000 

_Qfl2S£ano- 



si«-t; di*loc j; os«.^ds; 00256000 

SI*LOC NC; Sl*SI+6; DI*LOC H DI*DI*7J QS*CHR; 00257000 

Al±£l \U±A> 0025B 000 



END 



H2(DS«-32 CHR)); DS*NC CHR; 

j*di; si«-loc u; out; ds+wos; 

CHRTRNSF; 



integer stream procedure compareaca,b,ac*bc,n); 

comment , ,,, , ,, , ...,., 

J T o compare Information in ca) anu (b) starting from character index : 



ICAC) AND CBC 
I THE VALUE 
1 



00259000 
00260000 
00261000 
00262000 
00263000 
00264000 



t 



) RESPECTIVELY FOR (N) CHARACTERS. 100265000 

OF "COMPARE"* A«Bt Q* A>B» + 1» A<8* M. 100266000 

— »»——. J, C. PAQ 08/25/65 -«» — '»— IQ0267000 



; 



VALUE 



ac*bc,n; 



begin 



00268000 
00269000 
00270000 



LABEL 
Ll» 



L1#L2#L3#L4; 

si*a; si*si+ac; di«-b; di«-di+bc; 
n(if sc>bc then jump out 1 to l2; 



si*si-i; di*di-i; 

IF SC<DC THEN JUMP OUT 1 TO L3; '} I 
GO TO L4; 



00271000 
00272000 
00273000 



00274000 
00275000 
00276000 



L2» 

L3* 

J*AL 



j£nd_ 



tally^i; comparea*tally; go to l4; 
di*ioc comparea; ds*8 lit «+ogoooqi"; 

C QMPAREAJ 



00277000 
00278000 
QQ279Q0 Q_ 



h- 



2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



26 
26 
27 
28 



29 

30 



31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 
42 
43 



INTEGER PROCEDURE CCMPAREB ( A>B> AB,BB* N ) / 

COMMENT 

-1 IILJCnMPAWE..LNEriRMATlQN IN. U) A NU ( B) SXAflllM-ElRU M JIbAR AC TER -INDEX .. 

I(AC) AND (BC) RESPECTIVELY FOR CN) BITS IN BINAHY, 

» — - J. C, PAO 08/25/65 

VALUE AB*BB>Ni 

INTEGER AB»BB#n; 

REAL A>B; 



-M-4+4-M 



002B0000 
,00281000 
■ l008jj2jgQfl- 
100283000 
100284000 



BEGIN 
INTEGER I#J#T#AW,BW; 
_LA1£L UJ_ 



00286000 
00287000 
JLQ2S8.QQ0 



INTEGER STREAM PROCEDURE I nT { A* AW* Ad* 8TS, I li ) ; 
VALUE AH,AB#BTS*IO; 

_ —-BEGIN „ 



00289000 
00290000 

00 2*1 00. 



DI«-LOC INTJ SKIP 10 DBJ 

Sl*Ai AW(SI*SI+8JJ SKIP AB SB* 

BTSCIF SB THEN P S-SET ELSE DS»R£SETI 



00292000 

00293000 

.QQ29.,4_gpJL 



SKI P S B.IL 



00295000 

00296000 

_tt022Z0_M_ 



LI' 



END int; 

AW + AW 
&M+R*. 



+ (AB DIV 48); 
jk. CBB D< V 481j_ 



AB+A6 MUD 48; 
BB<-B B MUD 4 8; 



T*IF N>39 THEN 39 ELSE N; 

IF (r*'tNTCA*AH#AB#T»48-T>)>(J«-INT(B»BH»BB#T#«8-T)) 

THEN COMPARES*! EuSF - 



00298000 
00299000 

J3 .3LQ Q .flflJL 
00301000 
00302000 

.oiiioi.afla- 



STREAM 
COMME NT 



IF KJ THEN CQMP/\REB«--1 ELSE 
IF N*T THEN C0MPARE3*0 El$E 
- - BEGIN N»N-li-AR»Ati+T; RB<-.B£+i; UC TQ 1,1? -EMU. 

end compareb; 
proceoure zeroca,wd); 



J SARTING FROM (A)> SET (WD) HQRD.S Tq BE ZEROES. (1<WUS64) 
, ........ Jf c§ PA0 12/09/66 



00304000 
00305000 

J1Q.4G6..QQQ 
00307000 
00308000 

_Qil20.S.00Jl 



; 



100310000 
S003UOOO 

.xa 0312Q QU 



VALUE 



BEGIN 



wo? 

I 

QU A; DS»8 LlT"0000"i U±AL 



TALLY«-HD; T ALLY «-1 ALLY + 63 , WD*TaLlY; DS4.WD WQS; 

END zero; 

ST R_E A_M_P R CEDUR E_ _ I0CVRT(A>B»3T»CH> 10); , 



00313000 

00314000 

_0flJ15iLQfl_ 

00316000 

00317000 
00318000 



COMMENT 00319000 

* THIS PROCEDURE DOES INPUT C"iQ"»l' OR OUTPUT ("I0 M =0) CONVERT F«QM .00320000 
»"B" INTO "A", STARTING CHR-PQSlTjON "ST", FOR «CH" CHRS, 100321000 



J, C. PAO 



04/21/64 



VALUE 



st,ch,iu; 



.00322000 

;OQ3<!3000 

00324Q0Q 



45 
46 
47 
48 
49 
50 
51 



BEGIN 



OI*AJ SI*LOC lOi SU-5I + 7J SKIP 5 SB; 
IF SB THEN 



00325000 
00326 000 
00327000 



52 

53 



54 

55 



begin sl + b; si-si + st; ds*ch oct end else 
begin si«-b; di*di+st; ds«-ch dec end; 
_ej*o. ioc vrt; . 



00328000 
00329000 
00330000 



REAL PROCEDURE DATEIT); 00331000 

COMMENT •«•• m «••••••«•• t ••«•••• >ii «•» ti • • • 1 1 « 1 1 • 1 1 • • • • i • • • t.i • m# • • « i • • 1 100332000 

THIS PROCEDURE CONVERTS THE VALUE QP AN SYSTEM INTERNAL QATE INTO 100333000 



MONTH* DAY AND YEAR, 

VALUE OF RESULT! CHR 1-41 MONTH (IN CHARACTERS). 

CHR 5-6* YEAR (IN CHARACTERS), 



CHR 7 » OftY (IN BINARY), 

J, C, PAO 



100334000 
$'00335000 
100336000 






»«»»»,»«.«»» . » , « > . . ,».»»»»»«»« » . . . . f | , , . f » . . . . « » » mlMMIMMHHlttl 



»00337000 
06/2J/66 •*•«'«»■•»•♦' 00336000 

J00339000 



• • 



Q 

to I 

Q 



1 
7 
3 
4 
5 
6 
7 
8 
9 
TO 
II 
12 
13 
14 

|16 
17 

iie 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2B 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

36 

39 

40 

41 

42 

43 

44 

♦5 

16 

47 

«8 

49 

SO 

51 

52 

53 

54 

55 

56 

57 



VALUE 
REAL 



INTEGER 
LABEL 



T 
T 

»1N_. 

L 
_1 



#m; 

e; 

F (D»T.[42»63 + 10x(T.[36t6mOx(T,C30'63n)S31 THEN 



00340000 
00341000 
JQ&3.42QQ.G. 
00343000 
00344000 
00345000 



EG IN M 
F OSCM 
9 ELS 



♦"JAN. 
♦ IF CM 
8) T 



E 28) THE 



"; (j 

*T,C 



U TO LE END 
24io]+10x(T 



; d*d-3i; 

.uai6 j)j,t46i2]so then 



00346000 
00347000 
00 345000 



BEGIN M*-"FEB. M ; GO TO L£ END* D*U-M; 00349000 

IF DS3l' THEN BEGAN M*"MAR."; GO TU LE END; D*-D-31) 00350000 
IF n*3n thfn flFGIN m»"apw.»; on m Lf rmni n»n»3m 00351000 



IF 0<31 THEN BEGIN M*-" MAY'S GQ TO LE END; D*D 
IF D<30 THEN BEGIN M«-"JUN."> GO TO LE END; D*U 
IF DS31 THFN BEGIN M*"JIJ|. . "; GO TQ LE JMiXi n»P 



-3H 
-30; 
-3i; 



00352000 
00353000 
00354000 



IF 0*31 THEN BEGIN M*-"AUG."/ GO TO LE END* D*U-3i; 00355000 
IF 0S30 THEN BEGIN M*"SEP, w ; Go TO LE END; D*D-30; 00356000 
TF DS^i THEN BEGIN M»-OCT." J SO TO I r FmD; n^n-^i 0X135700X1. 



LEI 



IF D<30 THEN BEGIN M«- M NOV,*; GQ TQ LE END; D*D-30. 
M<-"DEC"; 
■HALE* D & M [ 61Z4J-Z4 JAT_LlfllJLd-L.UIi. 



END 
PROCEDURE 



INTEGER 

CJ3MMENJ 

: THIS PROCEDURE ENTERS 

:CUNCERNED INDEXES. "F" I 

.LBfiUQS. IN .- IH-LSLXUIRX* 

S 

: 



ate; 
nfoentrycf#wds)/ 



AN ENTRY INTC INFUC* 
S THE ARRAY IUENTIF1E 



' *] AND UPDATES ALL THE 
R WHJCH CONTAINS "WDS" 



00358000 
00359000 

00361000 
00362000 
)q363Qqq 

;00364000 
J0C365O00 

J-aOJ.6AOO.0- 



J, C. PAO 



04/27/68 



Y.AL_y.E_ 

REAL 

ARRAY 



JtfiSi_ 



100367000 

;00368000 

0036900Q 



DS> 

co]; 



BEGIN 



00370000 
00371000 

jiaii^aaa. 



INTEGER 
IF BOOLEANCDEBUGN) 



CO M .ME_NT 



CHECK 
CAN NOT 



s; 

THEN WR 



lTE(FOU,DBG,»INFEi\Y", 
INING WORD S QF THF C U_ 



Ft0 3,W0S); 

R * E N l_RflJj_fl£__I!i£P-L*2*J.. 



00373000 
00374000 



COMMENT STORE 



HOLD THIS ENTRY* START WITH A 
IF NFX.t40!8]+WDS>257 THEN N 
THE FOLLOWING INDEXES IN THIS EN 



THE NEXT ROW; 

FX«-CI\FX + 256)MC40140;8J 

1hY* 



00376000 

/ 00377000 

00378000 



[40* 83* REL INX OF THE ADDITIONAL INF 
C 331 7 J J INX OF STKHDC*3, CSEE NOTE 3 
C 251 83* REL INX OF THE PREVIOUS ENTRY 



C 12* 133 « AB 

TH 
t 41 83! TO 



S INX OF THE PBEVIOLS' ENTRY 
E SAME INX OF STKHDt*], CS 
TAL UNMBER OF WOhQS IN THIS 



0, (ALREADY IN FC03), 00379000 
). 00380000 

. (SEE NOTE 1). 00381000 



with the Same value* o 

EE NOTE 2). 
ENTRY. (SEE NOTE 4), 



R 00382000 
00363000 
00384000 



t II 33* THE TYPE 8F IDENTIFIER* 

0* RESERVED WQBO OH DONT-CARE, 
2* SUBSCRIPTED IDENTIFIER. 



(Regardless of "strm* 
( w strm« should be off 



00385000 
>. 00386000 
). 00387000 



4J DEFINE. 

6» SIMPLE VARIABLE* 

II STREAM PROCEDURE 



(Regardless of *strm w 
("strm" should be off 
(when "strm" is off). 



), 00388000 

). 00389000 

00390000 



STREAM VALUE VARIABLE, 
3* STREAM NAME VARIABLE, 
51 STREAM VALUE IN LQCAIC»3. 



(WHEN "STRM" IS ON), 
C*STRM» SHOULD BE ON) 
("STRM" SHOULO BE ON) 



0039J000 

• 00392000 

♦ 00393000 



71 STREAM NAME IN LOCALC*], 
F [ 3 til 3 & ( NF X"HF X ) [ 25 1 40 : 6 3 



("STRM" SHOULO BE ON) 



X NOTE 1 



COMMENT TRANSFER THE 



&STKHD£S«-<Fm MOO 125) 3 £ 12 1 35 1 1 33X NOTE 2 . 

&Sc38»<U»n4WDSC4U0*83; " t NOTES 3 

ENTRY IN T O I NFQ [» | « 3; 



. 00394000 

;00395000 

00396000 



00397000 

& 4, 00396000 

00399000 



• • 



ft 

? 

3 



9 . 
10 

11 

12 

13 

14 

15 



17 
18 
19 
20 
21 
22 
23 
24 



• 



25 
26 
27 
28 

29 
30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



COMMENT 



OO^GOOOG 
00401000 

.JLQ_4 02 ______ 

00403000 
00404000 



TRNSFwDSClNF0C(lKF0EMRY*HFX«-bTKHDCSJ*NFXJ,[35l5]# 
NFX,[40»83-13*. t03/WDS); 

If. TH£„MM..J_M^ JX-P01il.I£JLJJLJii£_ 

OTH WORD OF THE ROW# MOVE IT TO THE 1ST WORD OF THE NEXT ROWJ 
IF (NFx*NFX + WDS).UOs83«0 THEN NFX«-NFX + U 

DFBUGN83 THEN D UMP ARRAY ( F> 0**DS- 1* FPU* l,"ENT h T I '% HFX ) ; QM.Q_50.Q_Q 

END INFOENTRY; 004U6000 

PROCEDURE IKFOR.MOvEC&TARTJi 00407000 

.GMMZHJL-^*.*.*,*^*^ 3. .»-^^.t « . »._ . . . . »^«^4u«^ < JlOJLQflO..QJL. 

J THIS PROCEDURE REMOVES THE ENTRIES FROM INFUC*,*J, REMOVAL STARTS J 00409000 
IFKOM THE INFO-INDEX "START". At THE CONCERNED INDEXES ARE UPDATED. J00410000 
i __ ■ — — — J-__C.__P_.A_. 04 /27/68 _____.______L". 10041100.. 



_l£_ 



,,,,,j0041200 

VALUE START; 00413000 
R£AL START; , . . QJL41AQQ.0.. 



BEGIN 



REAL 
-LABEL. 



IF BOOLEAN(DEBUGN) 



PI 

_LEX 



T^EN WRlTE(FQU*DB<»,"lNFRMV"*STAH-|»HFx*NFX)J 
IF HFX<START THEN GO TO LEI 
J1C. 



00415000 

00416000 

.00417000 



00418000 
004 A 9000 
j3jH2J1Q_Q_. 



LE» 
Ji_Ji.OilL£.ANXDJjUjLNJ.. 



STKHDC(P«-INFOtHFX.C35>5 3*HFX,t40l8 3>l3 ), (331 7 3 3* 
P.C12U33 UNTIL (HFX*HFX*P » C25 18 3 XSTARTl 
I F CNFX»H F X*lNFO [ HFX. [3 5 1 5 3# H F X . r4Q>fl3 -lI.[ 4«8 3X^ 
L4C!B]sO THEN NFX*NFX+i; 

THEN WRlT E(FQU f DBti.*lNFRVM'S *ST AflT««. START. *HF y 



HFX,"NFX ='%NFX); 

IF DEBUGN«3 THEN DUMPaRRaY(STkHD'0# U4#FQU#0#«STKHD» H 'HFX); 

IF DEBU GN83 T HEN FOB STARTUP STEP 1 UNTIL NFX.[35>53 DO 



DUMPARRAY(INF0CSTaRT»*3»0»255»FQU» l#"lNFU »">STaKT); 



00421000 

00422000 

J)i____J___l_L 

00424000 

00425000 

.00.1260 

00427000 
00428000 

.J__1___._Q.QQ 



END; 



COMMENT 
ILL 



BOOLEAN PROCEDURE 
BOOLEAN PROCEDURE 



JEM I NFUR E MOV E/ 



scanCtypjj 
input; 



VALUE TYP* INTEGER TYPI FORWARD; 



00430000 

0Q43100C 

j___A3____J__L 



_CjQ.M_M.E_N I. __.14.f_.ijL.____.t_ 1 nninii'i"i t iui)i t.j!_-Ljt 

PROCEDURE REAcS 



THIS 
ICVt*], 
„LLi_E_ 



THE SYMBOLIC FILE AN(} 
THEIR NEXT SEQUENCE ui, , 



ACCORDING To 

value of resulji 7rueT~the eno~of 



BOTH 

- J. 



00433000 

00434000 

_______________ t»««-«---«»»«004J5000 

THE PATCH CARD DECK INTO :00436000 
IT hEADb A CARD AT A 500437000 

iQQ4_8QQQ 



FILES, 
C, PAQ 



04/01/68 



J0Q439000 

'100440000 

100401000 



40 
41 
42 
43 



BOOLEAN STREAM 
VALUE 



PROCEDURE 

c; 



dollaRsigmo; % check for dollar sign caRd. 



00442000 

00443000 

00444000 



45 

46 
47 
48 
49 
50 
51 
62 
13 
54 
55 
56 



BEGIN 



SI*CI 

IF SC»«S" THEN BEGin TALLY»i; 



dollarsign»tally endi 



00445000 
00446000 
00447000 



PROCEDURE 



end ocllarsign; 
Dollarcard; 

begin 



% PRUCCESS A dollar sign card. 



STREAM PROClDuRE VQIDCV»C)J 
VALUE CI 

_______________^ begin 



00448000 
00449000 
00450000 



00451000 
00452000 
00453000 



si«-c; si«-si+7; pi*v; tally«-8; 

7 C IF SC*" " THEN JUMP OUT! 

si»si-i; tally»tallW63; ds»lit" 



__Ai_. 



si<-c; c*tallyj ds*c chr; 

END VOID* 

__JJ ; : . 



w >; 



00454000 
00455000 
00456000 



00457000 
00458000 
00459QQO 



r 



\1 



2 

3 
4 
5 
6 



9 

10 
11 
12 
13 
14 

i1S 
17 

|18 .- 
19 " 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

V 



LABEL 
COMMENT STORE 
SIGN 



Ll»L2>Li3#L4*L5»L55>L56»LG»L7*L8*L9*LL*LEJ O0"4 6OOOO 

AWAY THE CURRENT SCAN ANC PREPARE FOR SCANNING THE DULLAR00461000 

C-AROJ „_.____ QQ4.62.Q.Q0 



STRU«-LDF+1»13«-RE AL(DFINEH 
STR[I> 23«>REAL(GENERATE); 
-SjRri*-^3»REAL(NL*lCARQU 



00463000 

00464000 
00465000 



STRC I* 

STRCI* 

_S TR[If 



43HF RESQ 
6]*NCUJ 
J1+CC Q* 



THEN 3 ELSE 0/ 



STRCI* 83<-NCO; 
STRTI* 9]*NCR; 

STR[ IM03» NXT* 



00466000 
00467000 
QQ46fi.Ofl.0- 



00469000 
00*70000 
Q47 1Q0Q. 



STRCI#in«-FST; 

str[i»i2]«-lst; 

STR [ lM3j «-R £AltBt;K); 



00472000 

00473000 

-QQO'MQQO. 



STR[I*l43«-NCEi 

TRNSFHDS<STHtI#17J#EVC0]#17); 

T M S F W DAi S2RJLLl3.6 ) illlliltA >i_ 

8FlNt*B00LEANC2); % STOP SWITCH 



00475000 
00476000 



IN SCAN FUR S-CARO. 



generate«-ne*card«-bbk«-false; 

-HE S Q +.TJB U E / - _C£±£ JLLi _ _ 

IF SCANC1) THEN GU TO LL; 

IF NXT # U2S63*2 THEN GO TO LL* 

..CJD.M.ME HI CHECK FOR VinO CARD A MD SKIP BUTH PAjCri OEr:K 



.AND HLD FXLEi- 



0Q478000 
00479000 
_QO.Afi.0QQQ 
00481000 
00482000 
-QQ4830QQ 



IF NXT.Ci6:6^"V" THEN GU 
IF SCANC'i) THEN GU TO LL> 
IF NCR*! THE N GO TO LL/ 



TO Lb^ 



THEN GO TO LLJ 



.L1J. 



IF EV[03.C18»24J/"V01D" 
V0IDCACTCOJ#CC)i 

8EAOCPACHCN03HL2J; 

TRNSFWDSlPN0>PACHC9)#l)i 

IF COMPA8EACPNO#ACT[OJ*0#0»8j<0 THEN 

BEGIN READ(PACH); GO TO Ll EhU ELSE GO 



00484000 

00465000 

JlJlAfljMLOJL 



00487000 
00468000 
00*890 00 



XL l'±L 



004VOOO0 
00491000 
004*2000 



L2» 
L3J 



PNC*A89/ 

IF C0MPAREA(Cfcl0#!NV*0*0#8)/0 THEN 

IF COM P AREA(CNQ»ACTC03>0>0 » 8 ) <0 TH EN 

BEGIN 

REAO(CARO); RLAOCCAROLNOD HL4]> 
TRNSFWDS(CN0/CAHD(9)M)J liU TO L3; 



COMMENT 



L4J 

THIS 
L5« 



IS 



CNQ«-A89; 

end; go to ll; 
not a void card* scan 



00493000 
00494000 
_00J950.0.Q. 
004V6000 
004*7000 
00498000 



it; 



IF SCANC5) THEN GO TO LL; 

IF NCR/4 THEN GO TO lL; 

IF <J + FV [0 3t [l 8»<i«3 ) s " CARn " 



00499000 
00500000 
00501000 



THE N 



IF C0MPAREA<CN0*A89, 0,0,83/0 THEN 
BEGIN CNOMNV; GO TO L56 END ELSE 
IF J*" T APE" TH F N GO TQ !,,[,? 



00502000 
00503000 
QQ 50 40 00. 



GO TO L56J 



00505000 
00506000 
nnsb7nnn 



IF C0MPAREA(CNG*INv*0»0#8)=0 THEN 
BEGIN 

READ(CAR0CN0])LL55j; 



L55I 



L56J 



TRNSFWOS(CN0#CARDC9)#l); 
CN0*A89J 

end; 



GU TO L56; 



00508000 
00509000 
00510000 



dollar*ncd; zerlcact[ii#5); 

XRESV + FALSE; 

IF B00lEAN(STR[I J 4])THEN ACT L6 ]«-\NO+C ACT C 7 ]» I NC ) 



00511000 
00512000 
00513000 



begin i0cvrt(actc63»en0.0#8/1); 

if actc6]<(actc73*0) then actc63*0; 
end; 



-LL. 



00514000 

00514100 
SE00515000 



00516000 
00517000 

00 5 18000 



J0 



• • 



L6I 



k 

► 2 

3 

4 

► 5 
6 
7 

I 8 
9 
10 

I II 

12 

13 
I 14 

15 

16 

I » 

18 

19 
| 20 

21 

22 
I 23 

24 

25 
) 26 

27 

26 
) 29 

30 

31 ~ 
I 32 

33 

34 

35 

36 

37 _ 

38 

39 

40 

41 

42 

43 ~~ 

«4 

45 

46 

47 

48 

49 

50 

51 

52 



53 
54 
55 



175 



IF NXT.U2*6]X2 TM£N GO 70 LL* 
IF NXT,C36?6]*"L" THEN GC TO L7 i 

IF SCANCi) THEN _0 TO I L ; _____ _ 

IF NCR»4 THEN 

IF EV[03.[18«24J/"LIST» THEN GO 70 LL ELSE 

BEGIN __J___l_ A________J____q__J SO TU L6 ENOJ 



IF NCR/5 THEN GO To LL; 

IF <J«-EV[0].[18»3QJ)3"LI5T0" THEN 

BEGIN A____l3__l_ l>0 TO L6 END, 



IF J« M LlSTG n THEN 
BEGIN ACU23 + 1; GO 
IF J » M L lSTp" THEN 



TQ L6 end; 



BEGIN ACTt3J«-i; 
IF NXT.C36:6j = 
BEGIN 



"X" 



TO Lfc 
THEN 



end; go to ll; 



IF SCANC5) THEN GO 
IF NCR / 5 THENGO 
IF EVC03..CX6I303 / 



xresv * true; 

IF NXT,U2l_3 

end; 



to ll; 
to ll; 

"XRES V" 



T HEN GO TO LL; 



/ 2 THEN GO TO LL; 



IF NXT. [36163 » "N" THEN 
BEGIN 
IF SCAN(5) THEN GO TO LL; 



JF NCR/3 THEN GO TO LL; 
IF EVtQJ.liaU6J/"NEk" ThEN GO TO LL; 
.I£„NXli_JU! T__C_L_1__UL6J T Hfc_-Jifl_IO L L i - 

SCAN(5) THEN GO TO LL; 

EVt03.ua»24l/ ,, TAPE" THEN 



IF 
IF 
.ACHjOjO-L. 



GO TO ll; 



NXT 



IF 

end; 

I F NXT . [ 36:6 ] s___ 



U_»6]/2 THEN 
THE N 



go to ll; 



B F f I N 

IF SCANC5) THEN GO TO LL; 
IF NCR/5 THEN GO TO Ll; 



IF EVC03.C ia:30JX , 'PUNCH"" THEN GO TO Ll; 

ACT[<|]«-ACT[4]+_J 

IF NxT.U2.6]X2 THEN G O TO LL; 



end; 

if nxt,c36:6]/"s b then go 

if scan(5) then go to ll; 



to ll; 



00519000 
00520000 
QXl5.2_0.00- 
00522000 
00523000 
______________ 



0Q52500Q 
00526000 
0Qb_7000 

00528000 

00529000 

.___L_____L 



00531000 

0Q5J20Q0 

J2_5J2Q2Q 



00532030 
00532040 
00532050 



00532060 
00532070 
00532080 



00532900 
00533000 
00534000 



00535000 
00536000 

..QjQ_az.aoa. 

-00538000 
00539000 

ooa«_o_a. 



00541000 
00542000 
QQ54 21QJL 



00542200 
00542300 
00542400 



00542500 
00542600 
0Q542700 



00542800 
00543000 
00544000 



IF NCR/3 THEN GO TO LL; 00545000 

IF EVtOi ,Cl8!ia;M"SEti" ThEN _U TO LL/ 00546000 

ACTE5_»li . IF BQ0LEAN(STR[I,4J) THEN STR[ I »a 3»1 J 0Q547Q00 



IF NXT t U2*63/0 THEN GO TO L8> 
IF SCAN(O) THEN GO TQ LL; 
I0CVRT(ACT[63»EVCQ3»3*IF NCR>8 



L8» 



ACTC63«.-ACT[63; 

IF NXTX4| w +"[36«42:63 

IF SJLAjLLU THEN qU„ TQ , 



then e else ncr^d; 



00548000 
00549000 
00550000 



THEN 

ll; 



go to ll; 



LL* 



COMMENT RESTORl 
LL» 



IF NXT, C42I63/Q TH£N GO TO 
IF SCAN(O) THEN GO TO LL; 
I0CVRTtACTC71*EVl0 3«3 f IF NCR>8 



00551000 
00552000 
Q Q5 5 3QQ0 



THE ORIGINAL ScAN ANq READ THE 
DFINE *BOOLEAN(STRlI>n); 
GENERATE»B00LEAN(bTR[I/21); 



THEN 8 ,, _____ NCR till 



NEXT PATCH CARD* 



00554000 

00555000 

J_______Q_ 



NEWCARO ♦_00'_tAN<STRCX»3})J 

RES0 *B00LEAN(STRtI*4 3); 
NCD»STR[_j 631 



00557000 
00558000 
00559Q0Q 



00560000 
00561000 
00562000 



r~ 



i 



17 
'l8 
'19" 
120 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

m| 

35 

36 

37 " 

38 

39 

40 

41 

42 



ccc«-$tr[i> nt 
ncq*-str.i> a:; 

NCR-STRtI> 93 ; 



NXT*-STRt I# 103; 
FST*5TRC1M13> 
LST»STRLI>123; 



BBK«-BQOLEAN(STRC I M 3 J ) i 

NCE*STRt I' 1<*3/ 
TRKSFWD5(EVCQ]^STWCI»17]»17); 



00563000 
00564000 
_0JL56.5Q.QQ 
00566000 
00567000 
0Q568QQ0, 



TRK5FWDS(EVC19 3»STR CI* 363*1); 
READCPACHCN03)CL9J; 
TRN'SFWDS(PN0»PACH(9)>1); GO T O 



00569000 

00570000 

.QQ5 71QQJL 



l e; 



00572000 
00573000 
00574000 



L9I 

LE» 

_REAL_ 

LABEL 

L0« 



P\0<-A89i 
END OOLLARCARO; 
11 



00575000 
00576000 
00577000 



LC,L1#L2*L23#L3*L4,LE; 00578000 

IF I*COMMREA(PN0'CNQ*0>0*8)<0 THEN 00579000 

I F CQMPAREACPt)0*A89>0*0>a) * TH£n 60 TO L23 ELSE 0058000Q 



BEGIN % READ FROM THE PATCH DECK. 

REA0(PACH»9»CVC*]>; CVC9]*lNV44C45»«5*33; 

TRN SFrtpS(CvCll J ' PNQ* 1 ); 

IF DOLLARSIGNCCST) THEN X CHECK FOR i-CARD. 
BEGIN OOLLARCARO; GO TO LC END; 
READXP ACHC NU 3U L23/ 



00581000 
00582000 
00583 000 



L2» 



tpnsf>ndS(Pncj,pachc9)m); 

PN0+A89; GO TG LEi 
JEAJ1A _ 



00584000 
00585000 
00 586000 



go to le; 



L23! 



IF I«0 THEN 

IF C0MPAREA(CNO*A89»0#O#8)sO 

BEGIN j._E NP O F BOTH Fl L_fc_S_,_ 



THEN 



close( card release); c lose < pach, release ); 
inputs-true; go tq le; 

EN R E LSE 



00587000 
0C588000 

.._,.Jia5J19QQ0 

00590000 
00591000 
00592000 



00593Q00 
00594000 
0Q595QQ0 



L38 



BEGIN % REPLACEMENT FROM PATCH DECK, 

REAO(CARD); READCCARDIN0.UL3]; 
TRNSFWnSfCN(3«CARnf9)»1 U GO TQ Lll 



00596000 
00597000 



CN0«-A89; 

end; 

* rf .a q fro m 



GO TO LU 

TH E SYMBOL IC £ILE * 



READCCARB»9*CVt*J); CVC«3>INVJ 
TRNSFWDS(CVlin*CNO*l); 

RE ADtC A R D.N Q 3H L4j ; 



00599000 

00600000 

,0 060 1000. 



L4! 

JUL*. 



-EUD. 



TRNSFhDSCCNO#CARD(V)»l)J 
CN0*-A89/ 

input; 



00602000 
00603000 
00604000 



GO TU LE, 



00605000 

00606000 

,006 070 00 



li 



43 
44 
45 

46 
♦7 
48 
49 
50 
51 
52 
53 
54 
56 
56 
67 



PROCEDURE OUTPUTCA); 

COMMENT ••••••*«,«,»••• • t « ••,»•»»*••*,*•• 



00608000 



vvvvovwu 

,•«*««,***,*,,*,•*,,»*,,«« ,00609000 

I t f ni IT m. t+ a _'<\fV V. u 1 /^ t d,p » *. »j ft Its rt JL 4 f\ rt /% A 



_* THIS P ROCEDURE TAKES CARE OF EDITING AND OUTPUT A CARP IMAGE OF ANY 80Q61Q00Q 



43 
44 i 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 i 

54 

55 

56^ 

57. 



JKiND* NEW* OLD* OR OLD DELETED. 



J. C, PAD 04/28/68 



800611000 
800612000 
>QQ613Q0Q 



ARRAY ACOJ; 

BEGIN 
STREAM PROCEDURE PRNTEDTCF* C ) ; 



O06H000 
00615000 
00616000 



BEGIN 
LABEL Li; 

Di<-p; si + c; us»9 wps; ds*b lit w »; 



00617000 

00618000 
00619Q0Q 



susi + 7; SKIP 5 SB; 

IF S8 THEN 

B E Q IN DStfl LI T " D EL ETED"; SI »^ I -1 E ND ELUL 



00620000 
00621000 

Q Q6 22000 



• • 



^1 



1 

3 

u 

5 

6 
7 



10 

I " 

12 

13 

15 
16 

l» 

18 

19 
| 20 

21 

22 
I 23 

24 

26 
| 28 

27 

28 

► ■ 
30 

31 ~ 

\ 32 

33 

34 

| 35 

38 

37 ~ 
| 38 

39 

40 
I 41 

42 

43™ 
I 44 

45 
46 

17 
48 
49 
SO 
61 
52 
53 
54 
55 
56 



BEGIN pS*e 

SKIP 3 sb; 

-LE-S & TH EN 



ChR; SI ♦SI""* end; 
0S4-LIT" ♦•; 

■aa±LU w R w e lse 



H i 



begin skip sa; 

IF SB THEN 

B EGIN 

DS*if LIT" GENERATED""; 

END ELSE DS*LIT"T"; 
_ENC; pS«-2 LIT" "; Sl*SI + 8; 



00623000 
00624000 

-Q_Q6i5.om 



END 



DS<-4 LIT" 
IF SC* M 1 M 
ELSF flS»H 



INTEGER 
.... LABEL 



prntedt; 
p>t; 

-L 1 » i & 1 L F f 



*•; 

THEN 8CDS«-2 
L IT" 



si*si-2; go to li; 



-QS»8 chr; si»si-^e; 



00626000 

00627000 

.006.28_Q_0Q_ 



_!LL 



reset; us«-2 

DS-8 LIT" 



set; 



DS*2 RESET) 



IF B00LEAN(A[91) THEN 
BEGIN % DELETED CARD 
ND»Nn»U » nELETFn 



JL1J.__ 



IF LSTD THEN GC TO Li; 
IF AC9], [ J6»oJ/0 THEN 

RFGIN . 



IMAGE. 

CARn_£qujii_ 



if frstprnt then 
begin frstprnt*false; 

TF tT>Ti niv 1MW±L12 



THpM P4."A" 



ELSE 

end; 



BEGIN IF T> 12 THEN T«-T-12i P«-»p' 

WRTTE(FUUCUBL].MUNG*T0.L6J24J*T0.C42:6]/ 
TQ.C 3 0liyi>T. fTl Mnn -ujOHU PT V ftn,P3.J 

end; 

PRNTEDTfFOUC-0)#AtO])i RELEASE ( FUU ) ; 
SMbi 



TO LE, 



THfN 



GO 

end; 

_JLE_8£afl_ ____ ___ 

BEGIN NNO<-NNO+INC; IOC VRTC At 10 ] , N N0, 0*8,0 J ENDJ 
IF BOOLEANCAC93, [45123) THEN 

_ atfilfj % GENERATEQ CARD IM AGE. 



NN«-NN + U % NErt GENERATED CARD COUNT, 

IF A[«3,C36«63>0 THEN 

BEGIN NLt&E + lJ I ERR OR CQUNlj 



GO TO L2; 
END ELSE 
_l£_LilN_T_HEN 



GO TO La. 



ENC ELSE 
BEGIN % OLO WETAINEU CARD 
__NR*NR+i; % OLD RETAINED 



L2» 



IF NOT RESQ THEN 
IF A[93»[36*63XO 
BEG I n NE*NE + 1 ; 



IMAGE. 
CARD COUNT. 



IF FRSTPRNT THEN 

BEGIN frstprnt*falsl; 

IF (T4-T1 DXV 3600X12 



TRNSFWDS(A[103>A£H3M); 

THEN " 

X ERROR COUNT. 



THEN P»"A" £L St 



BEGIN IF T>12 THEN T*T»12J P*"p" ENDJ 

WRITE(F0UCD9LJ/H0NQ,T0,C6I243#T0,[42I63* 

T0.C30ll23»T*(Tl MOD 3600) DIV 6Q,p); 



end; 

PRNTEOT(FOu(0)#AtOjj; 
END ELSE 



RELEASECFOU); 



IF 

end; 

IF NEWTP 



LSTO THEN GO TO L2; 
THEN 



00629000 
00630000 
00A110.00. 
00632000 
00633000 
.£iL61M0jD .. 



00635000 
00636000 
00 6 3700Q. 



00638000 
00639000 
Q0640nnn 

00643000 
00642000 

-aoj&jLaojQjo.- 



006^.4000 
00645000 
nn6a*nnn 



00647000 
00648000 

.0.0 6. 4.9.000..- 
00650000 
00651000 

-00652000- 



00653000 
00654000 
QQ655QQQ 
00656000 
00657000 
00_65JOOO_ 



00659000 
00660000 
0Q6610Q0. 



00662000 
00663000 
00664000 



00665000 
00666000 
00667000 



00668000 
00669000 
00670000 



006/1000 
00672000 
00673000 

00*/«000 
00675000 
00676000 



00677000 
00678000 
00679000 



00680000 
00681000 
00682000 



< 



10 

11 

12 

13 

14 I 

15 

16 

,7 I 

18 

19 

20 ( 

21 

22 

23 \ 

24 

25 

26 { 

27 

2a 

29 | 

30 

31 

32 | 

33 
— I 
34 

35 f 

36 

37 

38 % 

39 

40 

41 4 

42 

43 

44 % 



I 

1 
i 



46 

47 

48 

49 

50 < 

51 

52 

53 < 

54 

55 

56 \ 

3 



m 



h 



10 

11 

12 



13 

',« 
,5, 
16i 
17'' 

■is; 

I9| 

c- 

24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
36 
36 
37 "~ 

39 
40 

41 
42 
43 ~ 



45 
46 
47 
»8 
49 
SO 
51 



52 
53 



54 
55 

56 

5_ 



BEGIN NtWTPE.D<-THUE; 

TRNSKrtDSCA[9]#A[10]M j} 

_£AJli_ 



NRlTE(NTP#10*AC*J)J 



IF PNCH THEN 
BEGIN PNCHED«-THUE; 
L£, NE WTP JhtU E L_3_L 



■1E1_ E N D 



WR1TE<PUNCH»10» A[*] ); 

end; 

,U UTPUT > 



TRNSFHDSCA [9]»A[103M) ; 



00683000 
00684000 

_0JlM5j0JJL0_ 
00685100 
00665200 
006 65300 



00685400 
00665500 
00666000 



RUCEDURE UUTPUTNEW(CN)i 00687000 

OMHENT • .00686000 

THIS PRO CEDURE OUTPUTS THE GFNEHATFD TARp IMAfifS FROM ZB±*Lt*2 |iP inp feflQnnn 



jtu the Image which has the card index 

i 



,J_l.»_».. M-1-iXlJLI t.l-1 IIIIHIUilltlltlll.l 



NUMBER 
J. C. 

. . . 



"CN"» 

FAQ 



04/28/68 



« «.« .» ..«»..... .. .«..». 



VALUE 
REAL 



REAL 
LABEL 



ck; 

cn; 

BEGIN __ 

I,J>N,S>X> 

LUL2»L3»L<t#Lb#LE* 
- _L£_ .CBX.4jQ-.lHLN_Gli_I.a_LLi._ „ 

IF (N*CBCI*J*0,U J)>CN THEN GO TO LE; 

IF NOT RESQ ThEN IOC VRT ( S* CB £ I, XQl, 0,8, 1 ) J 

_ _Em_a£GiN 



J0069QOOC 
----100691000 



00693000 

00694000 

-00695^-00 



IF CBLIMIJ^N 

BEGIN 

-IL-JUiX-RE&fl- 



THEN 



■IflLftuJ-t) C V R TLXe-C B [ I jULQ 1 * * 6 * 1 H- 



0069600C 
00697000 

QQ69 6Q0.C 

00699000 
GO TO Lli00700000 
Q&ZOIOQO- 



_Li L 
L2* 



GO 

end; 

EN D UNT IL 



TO IF I-J+KEALCSQlST)=l 

ci»i*n>£fl_xi 



then l2 else l4; 



00702000 
00/03000 

-aoJUuuMwx- 



IF I-J+REALCSQ1ST)«1 THEN 

BEGIN N<-0; GO TO L5 END; 

IF NEWCARD THEN I UC VH T ( X , C V [ 1 1 3 , ,8 , 1 ) 



00705000 

00706000 
007 07000 



ELSE 



L3: 

L4: 



IF N«-C0MPAREA(PN0#CN0»0#0»8)<0 ThEN GO TO L3 ELS£ 
IF N>0 THEN lOCVRT(x.CNU, 0,8,1) ELSE 

IF CQMPAftEA(PNQ>A 69 *0>0>a)X0 T HEN 

ICCVKTCX,PN0>0,8*i) ELSE X*eifNlNESi 

N4-(X-S) DIV Cl-J + REALCSinST)); 

I F SQlSf THEN SQlSToFAL SE ELS E GO TO 



00708000 

00709000 

_00_/JLOOJP.O. 



DO BEGIN 
IF NOT 
IF N>0 



±$± 



00711000 
00712000 

—SSZIIOJIO. 

00714000 

00/15000 
00/16000 



RESQ 
THEN 



ThEN 



Lb: 



BEGIN S<-S + n; IDCVRTCCBCJ* 10J>S,0#8,0) 
CUTPUT(CBCJ>*3 it 
END UNTIL (j-j + uai; 



00/17000 
00/18000 
00/19000 



end; 



IF I>CBX THEN CBX«--1 ELSE 
IF N*CBtI*llJSCN THEN 
BEGIN IF NOT RES« THEN S»XJ 



00?20000 
00/21000 
0Q/2200U 



GO TO LI END ELSE 



BEGIN J«--i; 

00 TRNSFHDSCCBU«-J + l»OJ#CdCl»0J#i2) 
UNTIL C I» 1*1 3>Cdx; cbx*j; 



00723000 
00/24000 
00725000 



LEI 



end; 

IF DOLLARSCN THEN 
BEGIN it DOLLAR CARD 



00726000 
00/27000 
00/28000 



STARTS FUNCTIONING, 



LST0«-BGOLEAN(ACT[U)J 
LSTN«-BaaLEAN(ACT[2J); 
lSTD<-BQ0lEANCACT[3]); 



00729000 
00730000 
00731000 



PNCH«.CNEWTP*B00LEANCACTC4])J.C46IU; 

IF RESQ>BO0LEAN(ACTC5]) THEN 

BEGIN INO A CT E7]; 



00732000 
00733000 
00/34000 



00735000 
00736000 
Q Q/ 37 0Q0 



rt 



6 

7 

8 

9 

10 

11 I 

12 

13 

14 | 

15 

16 

17 ( 

18 

19 

20 { 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

38 | 



44 1 

45 

46 

47 < 

48 

49 

50 \ 

51 

62 

53 1 

54 

55 

56 f 

5} 



• • 



[31 

4 I 

5' 

6 
7 

a 

t 9 
10 

11 

12 



14 

15 

16 

|1> 

10 

l» 

20 

21 

22 

23 

24 

26 

20 

27 

28 

29 

30 

3l" 

32 

». 
34 

3B 

36 

37 ~ 

38 

39 



42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

5-_ 



NNOIF" BOOLtANC ACTLo] . t 1 ! 13) 
ELSE ACT16]; 
EJiD.i , _ 



THEN -ACTCbj-INC 



dollar«-blk; 
end; 
11.utp.lln-ewj._- 

bTARTGE^* 



_LiiL 



END. 

PROCEDURE 

COMMENT 

A THIS PROCEDURE ST ARTS 

5 THE ADDRESS «CC0«. THE GENERATING PROCESS 
ISCAN-PROCEDURE AT THE END OF THE CARD* IF NOTHING 

. 1.1 H E ME.XI._CAR1X# - _ _ 



Mll BE 



Ol^I h K CARP. 



TERMINATED 
IS CONTINUtO TO 



IN THE 
THE 



00738000 

00739000 

0.074000.0 

00/41000 

00742000 

_..0.0-Z-42aQJD 

00744000 

.00745000 

..LOO./. 4..600 C 

:00747000 

:00748000 



04/11/68 



t 



BEiim. 



REAL 
LABEL 



1; 
li,le; 

II .. QUIN > &££ lilEN (i0_ 

IF NC0 = NCD--_ T M L ,'i 
oEGIN PPCCV] .[4/M ]<-!; 
C JJL1XJ *JiCJ- - 2J_ 



10. 



PCL'J ,U7»l]*i; 



GO TC Ll. 



1* 



Lit 



T«NSFW0SCA[J3»CVC03* X2)i 
TRNSFrtDS(CVL03#PPCtO],i2); 

.£.M1_LLS£. . 

IF \C0 = NCD-1 1 H E iv 

BEGIN PCC^J.L47Jl]4- ; ; ClClJ-UNCD 
LfiJlSxliQS LMJU±.LlLSili±Zi.i - _ _ 

trnsfhds('cvc03»pccoj»12); 
icmstj 

CHR TRNSF (IC*CS1 »I»(CC 0.C 3.3 » 15 ]»CST) »B»CC Q.[ 3013 3); 

CI[93<-28.CVL9][36I36J6J; 

IF REAL(RES0)/1 THEN TRNSFwOSC C It 10 3 , CV L 1 1 ] » 1 ) ; 

rRNSFXDS(CVC0l*A[0J»i2) ; 



IF NOT NEWCARD THEN CV [9 3 . [47 I 13*1 ; 
END ELSE 
BEGIN CVC9j.U7:i] »i; 1C*_I_S_TJ CICU3-NCDJ 



:007b0000 
i 00 7 51000 

— aaz&wMic.. 

00753000 
00734000 
I -XI- S H L L n N_£ V£&. HAP PEN-t.aO._7 A5.flflJl. 

0075O000 
CC7 3 700L! 

... 0.0 7.38, 0.0. C;.. 
00 7 39000 
00760000 

00.7.61.00.0 

C07o20Cu 
7 3 
00.764000 
00765000 
00766000 

...QJlZ 6,7 Qflfl, , 

00768000 
00769000 
00770000 



CHRTRNbF(lC*CST»I*CCC0.C33»15J-CST)X8*CC0.[30*3J'); 

CH9]*24CVt9]C36l36*6] i 

II RE^JtUtESd^l THLN TRNSFhDSCCIC103>CVC1 1]»1); 

end; 

LST«-4J avc*72-i; civalid«-true; 

GENERATE«-TRU£> 



PROCEDURE 
COMMENT 



LE» END 



00771000 
00772000 
007 7 3000 
00 7 7 4000 
00775000 
Q_0 7 7 6000_ 
007 77000 
00778000 
00779000 



startgen; 
editingcc3p*nc); 



X THIS PROCEDURE DOES EDITING JOB INTO THE GENERATED CARD IMAGE, 
•■INDICATES THE TYPE OF EDITING OPERATIONS. 
I 0P*0I SET "NC" NUMBER OF BLANKS* 



00780000 

00781000 

,00782000 



♦*QP" 



OPsi t 
0Ps2i 



TRANSFER "NC" NUMBER OF CHARACTERS, " 

MAKE A STRING WHICH HAS "NC" NUMBER OF CHARACTERS EXCLUDING 
BOT H QUOTATIONS, 



J00783000 
»00784000 
»0Q78500Q 



-— J. C. PAO 03/27/68 



J00786000 
500787000 
:00768000 



VALUE, 



QP^N CJ, 



$00789000 
;00790000 
_. 00791QO JL 



REAL op,nc; 
BEGIN 
STHEAM PROCEDURE EDTCTfF/LST/OP/NC); 



VALUE F#OP*NCi 

BEGIN 

lo cal 1; 



00792000 
00793000 

00795000 
00796000 
00797000 



LABEL 



|4~" 

15 

|6 

7 

8 

9 

|in 

ii 
l;; 

I."' 

I* 

16 
:!■ 
18 
19 

„/.G| 

i 2l | 

t 

K 

26 
27 
28 
29 

"~ 
32 

33 

— 

35 

B6 

|37~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

»8 

49 

50 

51 

52 

53 

54 

55 

56 

S7 



li; 

SI«-T> Dl«-L0C 1/ U^rtUS; u I <■ I > 

. &i»Lfl£_QEi_5jap »a; 

IF So THEN 03<-LlT" "J SI«-SI + 6j 

IF SC*"1" THEN 

BEGIN % TRANSFER CHARACTERS. 



si«-f; o5«-nc chh; nodi; 
di«-lst; os*7 nr-'oooo"; 
5i»NO si»si-i; 



OO^vBOOC 
00799O00 

jQj&J)i}flQO.Q.. 
0080100C 
0080200G 

jQfiBQjjQLflJL 
006Q4000 

ooaubooo 



1F SC>"9" THEN OS*LlT"<r' else 
IF Sc2"0" THEN DS*LlT«0 M ELSE 
IF S C«ALPH A THEN QS»L IT M 2 " EL SE OS »LIT w ft w i 



00607000 

00808000 

_Qfl8jQLiO.QiL 



END ELSE 

IF SC="0" THEN 

BEGIN % SET BLANKS. 



LM 



REAL 

BOOLEAN 

LABEL 



N'CCDS*LIT M ")* SI+LOC NO SI*Sl + 6J 
IF SC*"0" THEN 

_ BE GIU. _J..*fii./._ O l+LQC FJ Dl»UI*7i CS +CHR; 

0J>i; fC2(Di><-32 LIT" ")); 
ENO; GO TO LW 

tA.r...EL.S_t_._ ^_ __ _ _ _ _._ _ 

BEGIN % TRANSFER A STRUG. 

ns*LlT M ""> SI*F* CS«-NC CHR; DS4-LIT""'*; 
NC»Pi; 01«- LST J QS*7 IITwQuOQ"; QS<-LIT"4"; 

enc; 

suloc nc; oi«-t; us*-k»os> 

E n d ic i ; ...._,,. __ _ 

a; 
e; 

L 1 > L £ ; 



ooeioooo 
oceiiooc 

00 812 
00813000 
00814000 
0.0.8 1 5 OQ.Q 
00816000 
00817000 

..iiIlK.l.eo.QO 
00619000 
00820000 

00621000 

00022000 
0082300C 

..OjQ8JiilOJUL. 
00625000 
00626000 
0082700 



IF i\C = IHE'N 

IF OHXO THEN oO 10 Lt.' 

IF (IF CIVALlO TnEN AVC ELSE A VC«-72-db )< C A* 



00828000 
00829000 
00630000 



IF 0P*0 THEN NC ELSE 

CIF UPs2 THEN NC + 2 El^E i\C ) +REAlC &«-lST/(4 AND FST/4)) 

,T.H£LN , : . 



BEGIN * ITEM CAh NOT dt HELD U ,m THIS CARD. 

IF CIVALID THEN % OUTPUT THE VALID CARD FIRST. 
_ _B£ GJLN . 

IF AVC>0 THEN EDT ( IC * 0* LST> 0* A VC ) ', AVC*72-BBJ 
TRNSFi*DSCCBCC8X«-CBX + l»03#CltO'3»12); 

fn d; an. tq l i; 



00831000 
00632000 

.Q.flMlQ.GQ.- 

0083400C 

00835000 

0063600 

00837000 

00838000 

Q063900Q 



kLJ. 



END ELSE 

IF NOT CIVALID THEN 

BEGIN IQISTJ 



0084Q000 
00841000 
008420 00 



IF BB/O THEN 

IF BB+NCS72 THEN 

BE GIN EDTCIC*0»LST*0»BB)J 



00843000 
00844000 
00845000 



IF B THEN 00846000 

BEGIN B*FALSE/ A* IF CP = 2 THEN NC + 2 ELSE NC END; 00847000 

END ELSE AVC + 72/ CIC9J»2) , &£8jyLQJ&JL 

ENOS 00849000 

IF BOOLE»N(EVt03.ClU3) THEN C I [9 3 , [ 36 16 ]♦ U 00850000 
IF ClClUXNCE THEN ^ . 0065100.0. 



BEGIN CI[11]«-NCE> 

IF REAL(RESU)^! THEN 1 RNSFWUS (C H 103 #ENO> 1 ) ; 



008^2000 

00853000 

_Qfl95 400 Q 



IF A*0 THEN EDTUCEST,LST#1F B THEN -OP ELSE OP, NO 

IF CAVC«-AVC-A)*0 THEN C1VALI0*TRUE ELSE 

IF OP l O TH EN . 



$00855000 
00856000 
00657000 



_5* 



• • 



<r 









9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



34 
36 
36 

3?" 

38 

39 

40 

41 



43 
I 44 
45 
46 
i 47 
48 
49 
50 
51 
52 
53 
54 



55 

56 



BEGIN % END OF 1HE CARD, GO TO CBC*#*J. 
TRNSFWDS(CBCCBX*CBX+l#C3#CI t03#12); 
_£lVAUn±£ A L » fc;. 



PROCEDURE _ 

VALUE 
REAL 



end else civalid«-truei 

editing; 

erredtcnoj 



END 



B E G I N 



nc; 

nc; 



INTEGER 
LABEL 



a#b; 
Li; 

b»f,b; 



BB+Q; GO To Li; 



Lll 



DC BEGIN F$T*4; 

TRNSFCHR(EV[0J#EVC1F A£5 ThtN 
»3»IF A^S THEM CA-b).C45!3] 



IF CIVALID THEN 

IF AVC«0 THEN EDI TINGC 0* ) ; 

IF CaMF NOtl F CIVALID THEN 



(A-5),C39t6]+lELSE 
ELSE A + 3»NC»NOA 



AVC ELSE AVC+721 



THEN AVC ELiE NC)>63 THEN A*63; 
EDITlNGClf A); 
£ NC UNTIL NCsA ; B B*BJ_ 



00858000 
00859000 

QilflL&Qflllfl- 

00861000 
00862000 

00863000 

00864000 
00865000 

0JJJA6.OJQ.O. 

00867000 
00868000 
00869000 

ooai'oooo 
o jooenooo 

Q08Z.zac.fi. 

00873000 

00874000 

...0Ji87_5_QOJL 



ENO erredt; 

INTEGER STREAM PROCEDURE LEADl NGO( A#NC )i 

N.C..i _ 



.VALUE_ 

LABEL 



BEGIN 



00876000 
00877000 
-0.0878000 
00879000 
00880000 



-I A LI. > » jVCJ- 



_Lil 



BOOLEAN 

.CUMEM. 



LEJ END 
PROCEDURE 



lwle; 
-Lua; siou±3X 

IF SC/«0 M THEN BEGIN lEADInGo'TAlLY; 

a*si; 

MCflF SC/"0" THEN JUMP fluT 1 TO i 1 riSP 
BEGIN Sj>SI + li TALLY*TALLY+63 END); 

tallym; leadIngo«-tally; di*a; DS«-LIT"0"; 

LEADING0«-TALLY; PI»a; DS<-LEAUINr;0 r.hR; 



go to le end; 



00882000 
00883000 

Q.OB..8AQO0 

0088^000 
00886000 
008 870 00, 



LEAD1NG0; 
SCANtTYP); 



;-«■"•-*■«.-• . » « ■«« « »»«.«« . , .«■»...».«.. ».«..».. »........».. t .. T . T . Tt . 



J PROCEDURE SCAN DOES THE SCANNING WORK UN AN 1 IMPUT CARD FILE. IT 
ISCANS DEFFERENT TYPES OF InF"0HmAT10N ACCORDING To THE VALUE UF "TYp" 
OLtULCH- LS-IHEL-JUbLLY FORM AL PARAMETER PASSED TO Tt-E PROCEDURE. IT ALSO 



00891000 
00892000 



I SKIPS BLANKS AND TELLS THE 
ICONTINUI-TY OF COLUMN 72 ON 

JLTMEiLl!ilSL£M&lII£RAlIM^_ 

» TYP*0! SCAN FCR A STRING 
l TYP=i: PJCK UP THE FIRST 

_J TYPs2» SCAN FQR 



NEXT CARACTER IN THE INPUT STRING. THE 
A CARD AND COLUMN 1 UN THE NEXT IS ALSO 



1008*4000 
J00895000 
LQflSSMOJL 



of digits. 
chR which must 

A STRING OF LETTERS. 



800897000 
100898000 
100699000 



NOT BE AN INVALID CHR. 



I TYP*3I SKIP BLANKS UKTIL A VALID CHR ENCOUNTERED, 
t TYp«4l SkIP UNTIL A CHR WHICH EQUALS TQ TYp, [36163 W8JCH MAY 
J AN INVALID CHARACTER. 



800900000 
100901000 
80Q9Q2000 



BE 



TYP*5» Scan for a string of combination of letters AND DIGITS. 

TYP36I PICK UP CHRS UNTIL A """ ENCOUNTERED* THEN SKIP THIS """■ 
REST PROCESS TS SAME AS TYPs3 T 



800903000 
TOO 90 #000 
» 00905000 



•n« 



00888000 

GO TO LE; 00889000 

0Q890O0O 



TYP*7 8 SEE THE NEXT CHARACTER. 
BESIDES «TYP"# SEVERAL OUTSIDE PARAMETERS A«E ALSO CQNCERNEO IN 



800906000 
800907000 
8009Q8000 



THIS PR OC EDURE 



CARO 8 THE CARD FILE WHICH SUPPLIES THE INPUT CARDS, 

cvc*)8 a save array which is used as the card buffer, the 

CHARACTER OF CV[9] MUST BE AN INVALlO CHARACTER, 



100909000 
<00910000 



1ST 



CED 
EST 



I 



the 
the 
the 



800912000 
800913000 
800914000 



ADDRESS OF CV[0] E*PRSSED AS AN OpERANp. ~ ~" 800915000 

ADDRESS OF CVC 93 EXPRSSED AS AN OPERAND. 100916000 

STARTING AQORESS WHERE THE SCANNED INFORMATION GOES. 800917000 



52 
53 i 






EET 



IT IS ALSO EXPRESSED 
SAME AS "EST" EXCEPT 
WITH A "STRING" (SEE 



AS AN OPERAND. J00918000 
/.HEN THE SCANNING IS IN CGQRP AR AT 1 ON i 009 J, 9000 
ALSO PROCEDURE "S TRING"), >0Q920000 



cc 



THE CURRENT ADDRESS WHERE THE SCANNING SHOULD START. 100921000 
AFTER TH SCANNING, IT IS MODIFIED SO THAT IT PUINTS TO 100922000 
THE NEXT VISIBLE CHARACTER* 100923000 



NCR 
NXT 



NO. OF CHARACTERS SCANNED. 

TWO FIELDS TO COMMUNICATE OUTSIDE* 

NKT.C36 163 t THE NEXT VISIBLE CHR AFTER SCANNING, 



NXT.C42I63I THE CHR-COOE OF THE NEXT CHR, 
01 DIGIT* 2* LETTER, 4> SPECIAL CHR, 
1 OR 31 INVALID CHR, THIS IS ENQ-OF-FILE CODE. 



:00924000 
800925000 
J0Q,?2,6P0Q_ 



100927000 
100928000 
100929000 



I#J#K1 THESE ARE USED AS SCRATCH PARAMETERS, 
VALUE OF RESULT! 

BIT 471 INDICATION OF ERRORS (SEE FOLLOWING). 



JQ09300QQ 

J00931000 
:00932000 



BIT 

BIT 



461 

451 



AN INVALID CHARACTER 
NUMBER OF CHARACTERS 



encountered (bit 47 qn)t 
scanned more than 63 (bit 

*" J. C. FAQ 06/10/67 



100933000 

47 0N)t J00934000 

-«--- — «t 00935000 



REAL 



VALUE 
INIEGXR 

STREAM 
MAIMZ-.- 



typ; 

JJLP_A 



100936000 

00937000 

_0.fl9 38000. 



BEGIN 
PROCEDURE 

VLf- 



SCANNlNG(D,S,8K#TY)i 



00939000 
00940000 
09 < H000 - 



BEGIN 



LOCAL 
LAB_EL 

LABEL 



t»b; 



D I GI T S,SNGLCHR> LETT ErS,PEHLAN^> I nENTFR* CHARACTER ; 



00942000 

00943000 
00944000 



coment,chrctr#cqntinue,n£xt,obioresultj 
si*d; di*loc scanning; ds*wds; 
sus; m»i nc t; us»hps; 



OQ945000 
00946000 
00 94 7000 



DUSCANNINGJ SI*Tj 

CUCI + TY; % BRANCH ACCORDING 

GO TO DIGITS) < TY=0/ 



TO VALUE OF TY 



00948000 
00949000 
, 9 500 00 



GO 

GO 

JLB_ 



TO 

TO 

JLQ. 



snglchr; 
letters; 
debl an k ; 



TY*1, 

TY»2* 

,TY*3; 



00951000 

00952000 

_DJl9-i3I10D- 



GC TO CHARACTER;* TY-S4, 
GO TO IOENTKR; * TY*5> 

go to coment; A TY = 6, 



ELSE (TY«7) SEE NEXT CHR. 



00954000 
009b5000 
0Q956QQ0 



COMENTJ 



IF SO M 9" THEN GO TO CONTINUE; 

GO TO NEXT; 

IF SC>"9" THEN GO TO CONTINUE; 



00957000 
00958000 

0Q959Q00 



IF SCX""" THEN BEGIN DS*CHR; 

sx*si*i; GO to oeblank; 
CHA RACTER * BI»L OC Hi pl-QI + 6; 



GO TO COMENT END; 



00960000 
00961000 
0, 9620 00 



CHRCTRl IF SC*DC THEN 

BEGIN Sl*SW; UUOI-1* 
IF SC>"9" THEN GO TO CONTINUE; 



00963000 
00964000 
00965000 



si«-si + i; go to chrctr; 
end; di*-scanning; 
go to deblank; 



00966000 
00967000 
00968000 



IOENTFRI IF SC>«9« THEN GO TO CONTINUE/ 
I? S'C« ALPHA THEN 
BEGIN DS»CHR; GO TO IQENTFH END ELSE 



00969000 
00970000 

.ocmiojia 



go to deblank; 
lettersi if sc>"9c then gu to continue; 
if sc£"0" then gu to deblank; 



00972000 
00973000 
00974000 



IF SC»ALPHA THEN 

BEGIN OS*CHR; GO TO LETTERS END ELSE 

GQ TO D E BLA N . KJ , 



00975000 
00976000 

fl ovr/o o o 



,'2 
3l 
4 
5 



(J 

to 

Q 
Q 

Q w 



in 
11 

12 
13 
14 

15 



18 

19 



20 

21 

2? 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

30 

37 ~~ 

38 

33 

40 

41 

47 



45 
46 

47 



43 
<9 
50 
51 
52 
53 
54 



DIGITS: 
CONTINUE: 



SNGLC HR1 



IF SC>"9" THEN 

BEGIN TALLY*:*; GO TO RESULT END; 

IF SC>" " ThLN 



begin ds*chr; go 
go to deblank; 
_i f _ sc>"9 »_ th e n go 



to digits end else 
to co ntinue; 



DEBLANK* 



DBKI 



OS.-CHR; 

IF SC=" " THEN 

BEGIN TALLY*-!, 



00978000 
00979000 

00981000 

00982000 
0096300 



b* tally; 



si+si+i; 
if Sc* w 

end; 



THEN 60 TO DBK; 



IF SC>"9" THfcN UlLY + 1 ELSf 
NEXT! IF SC>"0" THEN TALLY«-0 ELSE 

IF $C=AL.PHA THFN TAI i Y-2 Fl Sf 



RESULT* 



SCANNING*DI; T*Sl; 

dud;. si*loc scanning; 
scanntng»tally; St»t; 



±ALLl±A±. 



00984000 
00985000 
00966000 
00987000 
00968000 
_£Q_?Ji9Mfl.. 
00990000 
00991000 



DS<-WDS; % UPDATE DI 



0I«-L0C SCANNING; Ul«-0l + 6; 0S*CHR; % NEXT 

di*s; si*loc t; ds«.*os; % upuate si. 

SI4- L0C b ; SI»SJL±7J 



00993000 

00994000 

.QII3.9 500X1- 



CHR, 



STREAM 



IF SC*»'Q" THEN 
BEGIN OX+BKJ SI4-U0C 

- EJ4Q_ .&.CA NN I N JLL- 

PROCEDURE INVLID(A); 

BEGIN 
LOCAL XX 



b; 0-S4-W0S end; 



INTEGER 

.R£AC_. 

BOOLEAN 

BOOLEAN 

..L.AB£L _ 



END 



si*a; duloc t; us*wqs; 
di*t; ds+2 reset; ds*2 
_S_T*LOC T: ni»Ai ns»wps.t 



set; us*2 reset; t*di; 



invlid; 
i*j>k; 

EX' 



00996000 
00997000 

00999000 
OlOOOOOO 

JUfifliaao. 

01002000 
01003000 

..aa-oaaooo 

01005000 
01006Q00 
010X12.QOXL 



COMMENT 



BC; % ITEM SCANNED CONTINUED 
BR; % SCRATCH BOOLEAN, 
L00*L0# LQ1 »L1>L2,L3jL4*L'™i.6.LEi 



TO THE NEXT CARD. 



01008000 
01009000 
01009100 



IF THE CURRENT SCANNING STARTS AT A NEW CARD* AND IF IT IS foQT 
DURING PROCESS OF A "DEFINE", OUTPUT ALL THE ORIGINAL SYMBOLIC 
A.ND . NEW GENERATED CARDS* A ND TERMINATES J HE GENERATING PR0r.ES5 ; 

IF NEWCARD THEN * END OF LAST CARD. 

BEGIN NEHCD*BOQUEAN(X*BBC 361 39I93)| 
. BB»BBB; I NO. OF LEADING BLANKS ON THE NEW CARD. 



OIOJOOOO 
OlOllOOO 



01013000 

01014000 
01015000 



if generate then % during generating process, 
begin x terminate generating at the end of a card. 
if clvallo then ed i t ing ( q> avc ) ; generate -false; 
end; 
if 0utn<ncd-2 then 

BEGIN OUTPUTCPPO; OUTN»ttUTN+U 



01016000 
01017000 
01018000 



01019000 
OlOOOOOO 
01021000 



LOG! 



0UTPUTNEW(NCD-2)i 

end; 

IF 0UTiM"NC0-2 THEN 



GU TO loo; 



01022000 

01023000 
01024Q0Q 



begin output(pc); outn*outn+w 

qutputnew(ncd*i>; 
endj newcarq»fals£; 



01025000 
01026000 
01027000 



END ELSE NEWC0*FALSE; 
COMMENT PREPARING FOR SCANNING; 
_ IF (I«-J*EET)XEST THEN 

BEGIN NCR*i; EVt03*BLK4"«"ti8542»63 END ELSE 



01028000 
01029000 
01030000 



01031000 
01032000 
01033000 



*L 



BEGIN NCR*QJ EVC03*BLK END; 

% WHEN ££T*EST SEE PROCEDURE "STRING", 



01034000 
01035000 
01036000 



•~1« 



ii 



23 l 



29 ' 
30 



32 
33 



35 ' 

36 

37 



40 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57, 



a 



IF TYP/7 THEN 

IF ERXjO THEN BEGIN EVtO],tl«13 
.£±11 l__A_lALU£_Ly_lMll£AJJ^Ii!t 





-a ekx*-o end; 

-&IAIUL I N S CA N N l NSt — fl 



K*0« 



H «l « 



SCANNING COMPLETE* POINTER AT THE NEXT 
VISIBLE CHARACTER, 

SCANNING COMPLETE / POINTER CAN NOT FINO O 



6 
6 
I 
B 
9 
111 
11 

12_ 
|l3 
'l4 
!>| 
'16 1 



% A VISIBLE CHARACT 

% Ks3» SCANNING TO BE CO 

J6 CAriP. 



ER ON THIS CARD, 
NT1NUED TO THE NEXT 



CCOCC; % ADDRESS THAT THE SCA 
NCC«-NCe*NCD; % CARD NO. THE SC 
IF D F INF TH f N fiQ I_ L P ? 



NNING STARTS. 
ANNlN(i STARTS 



& ENDS, 

j_ 



IF REALCRESQJM THEN TRNSFWDSCE 
IF BBK THEN F5T4-15T4.Q ELSE FST<- 
BB K + FAl . S EJ 



NQ>CVU13'1); 

4; 



COMMENT 



21 

22 

23 

2* 

25 " 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

»i 

43 
44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 
55 
56 
67 



THE SCANNING IS PERFQRmEO 
WHEN M BOOLEAN(K)« IS TRUE 

IN T HE PRQ QFpuR "INPUT" 

IT IS THE END OF THE "QEF 
THE SYMBOLIC FILE AND PAT 

LQ« _. llkaLE._ailQL£AJ«~- 

(K«-(NXT*SCANMN 

•C45»31) DO 

BEGIN % RE AD N 

IF CC'CED THE 
BEGIN CVC9J, 

_ BJi.tBR.-_0.R_M 



IN THE STREAM P 
, HEADING THE NE 
-WHICH JLEILDS 
I ME" (WHEN DFINE 
CH DECK (WHEN UF 



ROCEDURE "SCA 
XT CARD IS PE 
E^SJJJ_I___AJ u F 
*TRUE)* or th 

ine s false>' 



G<I»CC#BBK»1F **3 THEN TYP ELSE 3)) 
EXT CARD I S NECESSARY, 



NNlNG"* 
RFQRMED 
F TRUE IFfl 
E END OF 


_ a 

o 
o 
_a 



052000 

053000 

JHzAQ&SX. 

055000 

0b6000 

058000 
059000 
06000Q 



H % INVALID 
t36«6J*i; 

0_UJ__5_jL_ 



CHR ON CARD. 



IF TYP*7 TH 

CC«-IF CC.C3 

CC _CCC_[ 



EN GO TO Lb; 
Ql33«7 THEN CC.C 
3Qi31*lU30 :45«3 



33:153+1 ELSE 

11 



.061000 
[062000 
...QlMlQUO... 
,064000 
[065000 
L0.6A___L. 



invlidci); 

K*i; EVtOJ.tli 1 3«-li GO to i_o; 

end; 



IF K*3 THEN 

begin % Information to be co 
bc*true; % item may be cun 



LOl 



IF NCR*-NCH + 

U, C33: 15J-J.L33U 

THEN % NO. UF CHR 



NTlNUED TQ NEXT CARD. 
TINUEO TO NEXT CARD, 



53)xB+1.[30*33-j.[30I33>63 
IN STRING GREATER THAN 63. 



BEGIN CVC9).C36l6J*i; * MARK ERROR ON OLD C 
IF GENERATE THEN 
BEGIN % KEEP. ON TRANSFERRING TQ THE NEW CA 



EVC03.CH1JM i 
IF BR. [44*13 1 
IF TYPs6 THEN 



ARO.O 



Rj___0 



* SETTING ERROR IN EDITING, 
HEN FST*-4 ELSE 

* ADD PFENNING """ TO STRING, 



037000 
038000 



040000 
041000 

420 00 



043000 
044000 
-45000 



046000 
047000 
■0.48000 



049000 

050000 

05 1000 



067000 
068000 
0690Q 



070000 
071000 
072000 
7 3000 
074000 
0/5 QOO 



076000 

077000 
076000 



079000 
080000 
081000 



BEGIN I*EVC03 
ERREDT(l); 

end; 



; EVC03*0&"""[18t42»63; 
EVC03*i; 



082000 
083000 
flMflXLO. 



erredt(ncr); 
end; ncr+o; i+j«-est; 
3r»br or b00leanc9); 



085000 
086000 
087000 



end; 
j*i; % 
end else 



RETAIN DESTINATION ADDRESS, 



088000 
089000 

09QQ 0Q 



43 

44 { 

46 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 i 

5? 



IF BC THEN 

BEGIN 

bc+false; 



091000 
092000 
093 QQQ 



IF I«J THEN GO TO 
BEGIN NCE*NCDJ 
IF REAKRESO)*! 



IF DFINE 
THEN TRNS 



THEN L4 ELSE LI EL 



SE 



; 



Q94000 
095000 
096000 



u 

4 

5 
6 

MM 



1 

r 

12 
13 
14 
15 
16 
117 
118 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 ~ 

I 38 
39 

40 

41 

4^ 

43 

44 

45 

46 

47 

48 

49 

SO 

51 

52 

53 

54 

55 

56 

57 



GO TG io i; 
END* 
£1NU ELSE 



LI I 



IF NEWCARD THEN 
BEGIN NCQ4-NC0-U 
IF RFAL (DriNE ?>0 



BBK*TRUEi G 
THEN GQ TQ 



TO L4 end; XSKIP BLK 

LAJ 



IF QuTN<NCD-2 THEN % P P C C * J 
BEGIN OUTPUT(PPC); OL'.TN*QU 

otnPuTNEh(NCD"2?; fir to l 



HAS VALID CARD IMAGE. 
TN + U 

Zl 



L2 I. 



END ELSE 

IF OuTN»NCD*2 THEN % PCt*3 

BEGIN % M A KE PC f*3 A ^AXLABL. 



IF NC0<NCD-1 THEN TRNSFWDS 

BEGIN QUTPUHPC.j; 0UTN*li 

OUTPUTNfHCHiCQ-m 



HAS VALID CARO IMAGE. 
E FOR CVr» 3. 



01097000 

01098000 

Ql 0.99000 

01100000 

.01101000 

-QHQ2QML. 

0H03000 

01104000 

..I211.0.5QO.O 

OiiOoOOO 

01 107000 

-Q_uo.b_qjqq. 



cppccq3»pcc03>12> else 
utn+i; 



L3J 



L4* 



end; go to l3; 

END ELSE 

IF QuTNttNlCP-1 THEN 1_£)LL± 

BEGIN TRNSFKOS.CPCC03»CV[03» 
IF NEWCARD THEN 
1 F G ENER AT E THEN PqC 93. [47 



01109000 
01110000 

- 1 U 1 000 - 



IMA6E. 

12); 

iiltii. * MARK DELETED 



01112000 
01U3000 

-QliMjJOXL. 
01115000 
01116000 

jl0111_7Q00 



end; 

IF OFINE THEN 

REGI m RFAnCD FSKtNCD»Mrn *ll*12.f;Vt»1 .» 

IF CVL9J .[36*63^0 THEN ERRDFN«-i; 
END ELSE 

JJLJB£MSDLlSiLl*JL. THE (LJiSLJJLJLSlJLLSJL 

BEGIN 

IF EOF*InPUT THE 
GQ Tfl L5t bLCD »N 



N % READ 
CD + 1 i 



NEXT INPUT CARD. 



L5l 



NEhCARD«-T«UE % 

fnd; cc*-cst; x s 

E\n; % END OF "»HIL 



IF NEWCArtD THEN BBB* 

IF TYP*7 THEN GO TO 

I F _N_D T DFINE THEN 

IF BC THEN 

IF I/J THEN 

IF NC0=NCD"1 THEN 



REMEMBER A 
ET SCAN PO 

E-LQLP" 



NEW CARD JUST READ. 
INTER AT BEGINNING, 



ouiaooo 

01U9000 
..01A2Q.QU0. 

01121000 
01122000 

aUiaooo 

01124000 
01125000 



<CC.[33»l5 3*CST)x8+CC,L30»33; 

le; 



01127000 

01128000 

.OJJUCLQO.. 



BEGIN % ITEM CONTINUED TO THIS CARD. 
IF GENERATE THEN CV t 9 3 . C47 S 1 3 *1 ; 

bbb» o; _ newcaro+false; N C E * N C D ; 



01130000 
01131000 
01J32O0Q 
01133000 
01134000 
0113 5000 



01136000 
01137000 
01138000 



if re*lcr£sfl)m then trnsfwds ( £n0* cv [ 1 1 3 * 1 ) / 
end; 

IF NCR+NCR+ 



L6I 



( I, i 33 » 15 3-J.C 33:i53)x8 + i ,[30* 

BEGIN CvC93.C36,63*i; % CHRS 

IF GENERATE THEN 



01139000 
01140000 
01141000 



3]-J,C30»33>63 THEN 
IN ITEM > 63; 



01142000 
01H3000 
01144000 



BEGIN> 

EV[03 ,ci:i]«"i; 

IF BR.[44tl3 THE 



% SEi'TlNG 
N FST+4 EL 



ERROR IN EDITING, 
SE 



01145000 
01146000 
01147000 



if typ»6 then % 
begin i*evc03; 
erbedtcd; ev 



ADD OPENN 

EVt03*0& H 

£03+13 



INg hmm TO THE STRING. 
'"♦C18J42J63; 



01148000 
01U9000 
U5 QQ0 



end; 

ERREDTCNCfOi 
IF TYP*6 THEN 



% ADD CLOSING """ TU THE STRING. 



begin evcow*"" 
end; 

BR + BR OR B00lEAN(9 



"C18J42.6J; FST*4; ERREDT(l) END 



01151000 
01152000 
01153000 

;01154000 
01155000 
0U56000 



fi 



5 
6 
I 
8 
9 
10 



13 

!u 
, IG 

V; 

ha 

H9 r 

P 

l 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



ENC EL 

IF BR. 

_LE_BR* 



SE 

L4'+J 1 
ULSX1 



J THEN GO 
l_l±i£&. 



LES 



IF GEN 

SCAN*B 

if up 



ERATE 

r; 



TO L6 ELSE 
THEN EDITINGC1*NCK); 
Lb EN IF REALiflEJja£J_g_JL-I 



JU159XLQ.Q.. 



tilh. 



IF NOT 
IF NCR 



XRES 
LEQ 
ff»£VC 



v lhEN 
7 THEN 



; j+o; 



FOK I * STEP 2 UNTIL « 

DO IF XALGCU * P THEN 

BFfilN IF NCR LEQ *i lHEfr-JM + 1 E LSE 



IF CCMPA8EA(EV[U'XALG[I+13#0*0*NCR-5)= 
THEN J«-I*10; 



ENPJ 






a 



if J 

BEGIN 



GTR THEN 
NCR * NCR 
TRNS FCH R 
IF NOT GENERATE THEN STARTGEN; 



4> 1 " 

(EVC03»XA LG[«J) »3 »3»MCR )i 



end; 



REAL PROCEDURE 

COHM£NT • 
J THIS 

IWlLL AUT 
JRETRY, 

I DUES THE 



END 



EADi_ 

scan; 

SCANNI 



ng; 



• < 1 LIOJJ.1.1. 



VALU 
01 

ii 



PROCEDUR 
OMATICALL 
IF THE WO 

RETRY AS 

E OF RESU 

A RESER 



a wqrd. if Th 

H TO THE DEFINE 
"COMMENT^ THE 



J 

J 

J_ 

I 

: 

! 

i 

I 



_2J 

41 

61 

8? 

10! 

12« 

14; 

iti" 



THE WOR 
THE WOR 



e Scans 

Y BRANC 
RD_IS A 

That in handling 

LTJ 

VED WORD IS SCANNED. 



E rtQRD 
TO GET 
_C_OMMEN 

define". 



is a "DEFINE"* scanning jo 

"NXT" AND DO 

L WI kL_J_E SkI_PPE_D_AND_ JO 



16113Q 

16H40 

Q_U£U5.Q. 

162000 

163000 

>HfeAQJlfl_. 

165000 
166000 
167000 



(0 
10 
10 



D SCANN 
D IS ED 
E t BIT[ 



ED HAS 
I TED. 
29U33 



MORE THEN 63 Ch 
CONTAINS ThF IN 



A SUBSCRIPTED IDENTIFIER. 

A SIMPLE IDENTIFIER. 

NOT FOUND IN INFOC***]. il£X_ 



RS OR AN 
OEX OX-JL 



INVALID CHR# 
NF0C»'* 3 . 



»0 

JO 

-LQ. 



ALfrAY SE T TO BLK). 



JO 

JO 

ASL 



5TREAM PROCEDURE OR A STREAM VALUE VARIABLE IF "STRM" IS ON.:Q 
STREAM NAME VARIABLE, 10 

s T R_E_A M VALUE VARIABLE ALSU IN LUC AL t *J x _ _ JO. 



STREAM NAME VARIABLE ALSO IN 



LOCALE* 
J. C. 



J. 
PAD 



04/23/68 



. j...t_t ....... t ....... . » ..».»«.«.*».««««.»»««»»»♦«»...»««.»».*»•««»»«« ?»«».«»»««.»»» 



RE 
.LA 



BEGIN 



JO 

JO 

10 



AL 

BEL. 



p*x*y; 
UL ^L O'L lfL Ei 



IF SCANC5) T 
BEGIN SCANNI 
P»EVCOUNCRC 



HEN 

ng*i; ifx*blk; go to le end; 
ilMlllll 



IF CIFX«-5TKH 

DO 

IF INF0CX»IF 



OCP MUD 1 
X . L 3b« 53* 



253 )«Q 
Y^JTXjJ 



THEN GO 
4C»fc33=P 



TO lo; 
THEN 



157000 
158000 



160000 
161000 
161010- 



161015 
161020 
161030 



161040 
161050 

UlflfiiL 



161070 
161080 



161100 
161110 
iAl_12fl_. 



1*68000 
169000 
170000 



171000 
172000 
1Z3J10JL 



174000 
175000 



177000 
178000 
179000 



180000 
181000 
162000 



183000 
104000 

185QO0 



186000 
187000 
188000 



189000 
190000 
19100Q 



BEGIN 

IF NCRS5 T 
IF IFXSLFX 





HEN GO TO 

THEN LI ELSE IF IFXSRFX THEN LI ELSE LLJ O 



192000 
193000 
19400 



JLL1. 



IF COMPARE 

IF IFX>LFX 

END UNTIL (I 



ACEVU3,iNFO[X*Y + l]»0'0#NCR-5)sO THEN GO 

THEN Li ELSE IF IFXjRFX THEN Ll ELSE LL/O 

FX»INFOCx»yi3.Cl2»133)«o; Q. 



195000 
196000 
197000 



LOt 
Lit 



ifx*blk; sc 
if boqleancx 

TF X»l THFN 



ANNlNG«-8; 
♦<P*1NFQC 
SCANMNfl» 



GO TO 
X,Y-13) 
10 ELSF 



le; 

.tit 33) 



THEN 



198000 
199000 
200000 



56 ' 



• • 



r~ 



V 

3 
4 

B 
6 

7 
8 

'J 

10 

11 

12 



16 
1/ 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 

33 
34 
35 
36 

37 " 
38 



42 
43 



procedure; 



L.E« 



IF STRM THEN SC ANN 1 NG*9 + X ELSt GG TO 10 ELSE 

IF X = THEN GO TQ |_E ELSE 
If_A_g_. THEN S£AMi N G fe 2 & C I£Jl± P ti fl » 6 1XL2AL 

IF STRM THEN GO TO LO ELSE 

IF (SCANNlNG*X)*2 THEN SCANNING*^ 
£ND sc anning; 



BEGIN 



LABEL 



ERROR; 

I 

_JL> 



IF DFINE THEN BEGIN ERROFN*li GO TO LE END* 

EVE03.EI»1J>1> 

IF NC0*NCD»2 THEN 

BEGIN PPCC9 j , C36«6 ] *- 1 ; p t C9 J , C 36 : 6 ]«-l ENO ELSE 

IF NCQsNCD-t THEN 

BFBIM PCL93.L36» 63»i; CVL93.C36 I6JLiL .ENO ELSE 



01201000 
01202000 

XL&JL Q120 3Q.QQ 
01204000 
01205000 

_ __Q12.Q_.QCL0 

01207000 
01208000 
_Pi20.900.g 
01210000 
01211000 

-Q-1212Q00... 

01213000 

01214000 
CU21_.Q_0_Q 



LEt END 



CVC93, (36(63+11 

error; 

_D_E_11_E_LNX£1J 



01216000 
01217000 
..01216000 



_E.FU_.C£_URE 

COMMENT 12 19000 

» THIS PROCEDURE STORES UP ALL THE CONCERNED INFORMATION OF THE 501220000 

J_£U R RjENj S £A N N I N G_A N £ R EApS "UF SK" ULE S TARTS TH E SCANNING OF THF ;0l221000 

: UEFlNEi "F" IS THE INF0»INU£X QF THE ADDITIONAL INFORMATION OF THE :0l222000 



JDEFINE. 



_J__._Q_.iLAQ 0.8 /04/ 3.6 



101223000 
L1.Q1224Q.QQ, 



VALUE 
REAL 



f; 

FA. 



BEGIN 
IF BOOLEAN(DEBUGN) THEN HRl TECFQUl : NU } ,DBG,«QFN-I N",NXT>F , LQF ) ; 
__S __B_CL p F t L D F _1__1±0_ 



;0l225000 
01226000 

_Q.i2210.QQ. 
01228000 
01229000 
01230000 



STRtLDF, 1]<-REAL(UFINE); 
STRCLDF' 23«-REAL(GENERATE>; 
ST R C LDF*3] «-RE AL C NEWCARD ) ; 



01231000 
01232000 
012 3 3000 



STRCLDF* 
STRCLDF* 
STRCLDF. 



4]4.R£AL(HESQ); 

5i«-cc; 

6]»ncq; 



STRCLDF' 
STRCLDF* 

-S JR c iD r-fL 



73«-cco; 
83«-nco; 
9i»ncr; 



streldf*io3«-nxt; 
strcldfmi3*fst; 

STRtLD^.l2U LST) 



01234000 
01235000 

J__.J6_.__. 
01237000 

01238000 

Q_liti.9jQ.QQ.. 

01240000 

01241000 

01242000 



STR[LDF*l3]*HtALCBBK); 

strcldf»i*]*nce; 
tr n sfh oscstrccdf* 17j>&v[03> 20^ 



01243000 
01244000 
01245000. 



trnsfw0scstrtldf*37 3#cvc0 3»12); 
qfine*resq*true; lstm; 
generat£»newcard»8bk»false; 



01246000 
01247000 
01248000 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



REAOCDFSKCNCD*f ]»12#CVC*3 }| CC*CST; 
ERRDFN4-CVC9 3 ,[36:63; F«-REAL(SCAN(3)); 
1L BnnLEA N (DERUGN) TH F N W RI T ECFQUtDBG ," !___! _U__ 



01249000 
01250000 
01 25 .1000 



"*"AFTERl%NXT,LDF); 
IF DEBUGN«3 THEN DU«PARRAY(CV#0, 1 1 ,FOu# I #"C VC * 3 * %CC )i 

END OF IKE IN; . 



01252000 
01253000 
Q1254000 



PROCEDURE DFINEOUT; 01255000 

COMMENT 01256000 

J THIS PROCEDURE RESTORES THE ORIGINAL SCANNING INFORMATION AND ;0l257000 

•CONTINUES THE ORIGINAL SCANNING* " 101258000 

t .-„---. j. Ci pau 05/04/68 • — — —101259000 

1 m m > > < tm 1 1 » i m 1 1 1 m « m« t « » i » » « ».« * • * • *___jj; »■». * #.#:»>:»*:«;.»:# j ■ _»..t «,,»,;« ».t 4>».««;01<.6QQ0Q 



J& 



# » 



BEGIN 
REAL i; 

■I£_fiXIQLEAN( DEBUG N) THEN WRl TE ( FPU L Nd J ,DBG, "DF NOUT",NXT *ST 

OFINE *BOOLEAN(STRCLOF»13); 
GENERATE*B00LEAN(bTRtL0F#2]); 

- - NEwCARP »Bn0l.EANC.STRtLDF.3n j 



RESQ «-BOOUt"AN(STRlLOF»<»])> 
CC *STRtLDF* 5]; 
NCn»STRCLDF> 6M 



01261000 
01262000 
JU2A2QSISL- 
01264000 
01265000 
oi266nnn 



CCO*STR[LOF# 7j; 
NC0*STRtLDF# 8j; 
NCR»STR[LDF* 93; 



01267000 
01266000 
012 6V0 QQ 



NXT*STRLUDF»103; 

FST*STRlLDF#il3' 
LST»STR[LDFM2] J 



01270000 
01271000 
Q127200JL 



BBK«-tfOOLEAN<'5TRCLUF#13] ) j 
NCE*STRCLDF»l«)i 
TR NSFW D S(CV tQ3>STR[ UDF> 37 3> 12); 

IF LDF = THEN 

IK (i«-STR[0>0J J/0 THEN 

.BEGUM _ 



01273000 
01274000 
01275000 



01276000 
01277000 
01278000 



IF BQCJLEANCl) THEN 
BEGIN EVC0J»0*V»'Lia*42U)*' 
If-jmX-QEN E RATE THE N SlAAlfiJUU- 



01279000 
01280000 
01 2810.00. 



enu; 

IF BDULEANCI.Uo:n) THEN 
PEGIN FMtQlstlsUJL !! J 



FDITING(1>1); 



01282000 
01283000 
01264000 



IF NOT GENERATE THEN STARTGEn; EDI TlNGC 1 , 3 ) ; 

end; 

TF RPHI FANf I.I45H U THFN 



BEGIN EN/ CO J «- M P0 INT"; tV C 1 J *0<i"ER C" C 1 « 31 J 17 ] ; 
IF NOT GENERATE THEN STARTGEn; EDI Tl NGC 1 ,8 ) / 

end; 



01285000 
01286000 

-0.1 2 B 71000- 

01288000 
01289000 

.01290000 . 



IF 800LEAN(I.t44»13) THEN 
BEGIN EVt03*04")"Cl8l42l63i 

IF NOT GENERATE THE N STARTGENJ 



01291000 
01292000 
0129.1000 



end; 
end; 
trnsfhds(ev[03»sth[ldf»17 3*20); 



EDITlMGClM); 



01294000 
01295000 
0129 6000 



IF U0F«-LDF-1)<0 THEN 
BEGIN 
IF FRRnFN/n THEN 



01297000 
01298000 
Q1 299QQ JL 



01300000 
01301000 
Q13Q20QQ- 



BEGIN EV[0] t Cl»l3»li C V [9 ] , t 36 J 6 ]«■ 1 ; ERRDFN*0 END; 01303000 

IF GENERATE THEN ED I T ING C 1* NCR ) ; 01304000 

£^^ - 01305000 



IF BOOLEANCDEBUGN) THEN MR! TE (F0U*08G, " 
" ">"AFTER»"*NXT#LQF); 
LhQ QFTNEOtiT; 



«, w 



01306000 
O't 307000 
Q13QBQ0Q 



PROCEDURE PERCENT; 01309000 

COGENT 01310000 

JL THIS PROCEDURE TAKES CARE OF SCANNING AND FDlTlNG OF THE NOTES AFTFRt 1 31 1000 
I A «%» ON THE CARD. »0l312Q00 

I -------- J# c ^ PAO 04/15/68 — — 101313000 

'■»riMt*»"ntHMui Mt M»M.u , .«.«.».« . # «*..«A»« a » «««.,, .««..«;01314000 



BEGIN 
INTEGER n; 
LABEL LOiUiLE; 



10» 



N* ( CID-CC » £ 33 ! 1 5 ) ) xa-CC , t 30 1 3 J ; 

IF GENERATE THEN 

IF NOT NEWCARD THEN 



01315000 
01316000 
01317000 



% NO, OF CHRS AFT *. 01318000 

01319000 
01320000 



? 

2 
3 

4 
5 
6 
7 
8 
9 
10 



12 

13 

14 | 

15 

16 

17 ( 

18 

19 

20 | 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 < 

33 

34 

35 r 

36 

37 

38 

39 

40 

41 

42 

43 

44 I 

45 

46 

47 

48 

49 



52 
53 ! 



55 



t 

i 

i 



JJ 



r~ 



h 



H 



BEGIN 

IF CIVALID 
QLQlk 



THEN 



GU TQ H END, 



LI 



IF N»AVC THEN 

BEGIN EDlTlNGCOfAVC); 

E ND ELSE ._ _ 

BEGIN IOlSTj CIV AllD«-f RUE J ""av"c»72; 
IF AVCXN THEN ED I TINGC 0* AVC"N ) ; 
CHRTRNSF (IC»CC>N); 



01321000 
01322000 
QlAUQM.. 
01324000 
01325000 
.C1 326 .0..Q-2 



CIt93«-2 ENO; 



lst*/j; avc*o; 

end; CC«-CEDi 

. CJ1_!ME__L.. IF THE "%» IS AT COLUMN 72 DM THE CA RD. S __p^ 



IF N=l THEN X A "%» AT COLUMN 
BEGIN i SKIP THE NEXT CARD. 
TF FHF THEN GO Tf1 I Ei 



72. 



COMMENT SET THE 



n«-real(scan(7)); 
cc*ced; 

______ 

STARTING SCANNING AUDRESS 

IF EOF THEN GO TO LE> 
„N»fi£AL f3C AN(3) W 



* SEE THE NEXT CHR TO STOP SCAN, 



AT THE FIRST VISIBLE CHR; 



01327000 
01328000 

...J_lJi_9_LQJl 
01330000 
01331000 

-J_l_i_____Q__. 
01333000 
01334000 
Q 1 3 3 5 
01336000 
01337000 

___X-_-______. 



PJ_._C.EI_iJR.E 



LEI END 



if nxt,c36j6]* m x" then go to loj 
percent; 

CI 



01339000 

01340000 

.04 34100.0. 



COMMENT 

J THIS PROCEDURE 

JLUIE PROCESS i_bM 

•ENTIRE COMMENT W 

I 



TAKES 
1N.AIX.5 
ILL BE EDITED AT THE 



CARE THE SCANNING 
_J.._UiO__i_____FlL £__.___ . 



I 



SAME 

- J. 



AND EDITING OF A COMMENT' 
A£X£R-A-.&£Ml£flUJMN, — IiiE- 



COLUMN AS 
C, PAO 



ON THE OLD 
04/15/68 ' 



CARD. 



01342000 
01343000 
_JUJA40.J3.0- 
.01345000 

*0l i 46000 

XQtl4-70QQ 



-» t .*..».*..» 



__! ._,_.._..».,.#_*,.»__, 

BEG 
INTEGER 
LABEJu. 



IN 

n»s; 

Ll_L2»l __d_iL__J__ 



IF GENERATE THEN 

BEGIN X DURING GENERATING PROCESS. 
TF NflT C IVALID THEN 



J01348Q00 

J01349000 

,.A_________fl__. 

01351000 
01352000 
01 3530Q-L 



pegin ic«-isr; civalid*true; avc*72; ci.9.«-2 end; 

IF AVC>(N«-(CED-CC0.t33:l5] )X8-CCO,[30|3] ) THEN 
BE GIN EDITIN G( Q*AVC-N) ; GO TO L 2 END ELSE 



Lli 
L2J 



IF AVC=N THEN GU TO IF LSTA4 THEN LI ELSE L2 ELSE 
BEGIN 
_ £ DITING(0*AVC3; 



01354000 

01355000 

JHi___C_LQ... 

01357000 
01356000 
01359000 



EDITINGC0#72-N-Bb); CIC9J+2; 
ERREDTC7); % EDIT TnE 1*0*0 "COMMENT", 

IF N>7 THEN ^ 

IF NCO<NCD THEN GO TQ.L3 ELSE 

EDIT IN6C0>AVC-(CEQ-CC.C33« 153 )x8*CC,C30I3J) £L»E 

U_M1 THEN 



01360000 
01361000 
01362000 



01363000 
01304000 
01365000 



L3» 



BEGIN 

IF NCO-NCD-2 THEN 
EDITING(O' AVC) ELSE 



01366000 
01367000 
01J68Q00 



01369000 
01370000 
01371000 



EDlTING(0,65+N-<CED-CC.t33»15 3)xe+CCtt30*3])i OT372000 

END ELSE * M7 # 01373000 

IF CCCST THEN EDIT ING(0> 72 ?J 01374000 



COMMENT SCANNING 



end; 
end; 

UNTIL AFTER 



ORIGINAL CARD (END OF GENERATING); 
L4! IF EOF THEN GO TO LE; 
IF GENERATE THEN $»NXTJ 



SEMICLLUMNj EOlTlN- UNTIL THE ENO OF THE 



01375000 
01376000 
0137700 



01378000 

01379000 
01360000 



ri 



4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14' 



17 I 

18 

19 

20 I 

21 

22 

23 I 

24 

26 

26 ( 

27 

28 

29 1 

30 

31 

32 i 

33 

34 

35 1 

36 

37 

38 % 

39 

40 

4,1 

42 

43 

44 t 

46 

46 



47 

48 

49 

50 I 

51 

52 

53 I 

54 

55 

56 I 



e 



flT 



2 
3 
4 
5 
6 
7 
8 
9 
10 
II 
12 
13 
14 
IS 
16 
'17 
18 
[19 
J20 



23 

24 

2G 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



IF NXT, [36163 = ";" THEN 
BEGIN N«-REAL(SCAN( 1 ) ); 

I F GENERATE THEN 



BEGIN iSTm; EDiT!NGCl»l) END; GO TO LEJ 

end; 

CC*IF CC.t30»33»7 THEN CC.I33U53 + 1 ELSE 



CC«(CC.C30»3J+l>C30l45«3Ji 
N«-REALCSCANC7)); 
IF GENE R ATE THE N 



.LE1__ END- 



BEGIN lst«-a; 

GC TO L<U 
cni/MNT; 



EVC03*OtS[18I36l6]J EDI1INGC1M) ENd^ 



string; 



PROCEDURE 

COMMENT . ....... 

_t iiiis_£fiiicEn URF Ta kes car f o f sc an ni n g and ed i t i n g of a string . 





.0 

±0. 



»this procedure 
•indicated by m 



QNL* 
NXT", 



BE CALLED WHEN THE OPENNING QUOTE OF A STRING IS 



-*u-£, pa h n a/i 6/6fl 



»0 
»0 

.La 



INTEGER. 
LABEL 



BEGIN 



-U-Ji- 



le; 

j4-CC4NCDC9J27«2lHREAL(BBK)tl 

coif. ( i»-rc « r3 Q»3 3) i«y t hem-xx 



CC&(I + l)C30Mb»3]; % SKIP 
I«-REAL(SCANC7)); % SEE ThE N 

lL_.Ni_WQAJiil_J-HL^ 



«J 31 « 15 3 + 1 ELSE 



THE OPENNING QUOTE. 
LXT CHARACTER. 



BEGIN IF GENERATE THEN CVC93 

BBB*-0/ newcard*false; NCE 

IF ReAL(RES«JM THEN TR NS.Fh 



• E*7« 11*11 

♦ncd; 

P S<LN0' CV[ 1 UM ) 



L 



end; 

IF NXT, [36*6 
BEGIN % THE 



3* THEN 

1ST- CHAHACTER OF THE STRING IS a www. 



EET.C30I3J 

CCMF (I«-C 

CC&CI+l 



*4; 

C.t30«33)s 
)C3QU5 I33 



7 THEN CC.C33«15]*1 ELSE 

; % SK I P THE OPENNING QUOTE. 



IF SCANC6) 

begin eet* 
f et*est; 



them % error encountered in scanning, 
est; go to le enc; 



END ELSE 

IF SCANC6) T 

IF GENERATE 



BEGIN IF BO 

EDITINGC2* 

EN D E LSE 



HEN GO TO 
THEN 



le; 



OLEANCJ.CU 13) THEN LST«-fST«-0; 

NCR); 



381000 
3d2000 

3B1O0JL 



384000 
385000 
386000 



367Q00 
388000 
369QQQ 



390000 
391000 
392000 



393000 

394000 
395000 



396000 
397000 
19_B_0XXQ 



399000 
400000 
AXLLaaO- 



402000 
403000 
4Q4pnn 



405000 
406000 

iLflZQfliL 



408000 
«09000 
41000 



411000 
412000 
413000 



414000 
415000 
4JJ5.QQ.Q 



417000 
418000 
iH9.QQ.fl. 



420000 
421000 
4g2Q0Q 



423000 

424000 

425000 



15 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



BEGIN BBK*B 

CCQ«-J.[30t 

ENDJ 



06LEANCJ.C 
183; NCO* 



mi a 

J. [9121 



j; 



426000 
427000 
428000 



PROCEDURE 
COMMENT 



LEI END 



string; 
number; 



429000 
430000 

431000 



J 
I 

' » t • • « 



THIS PROCEDURE PICKS UP A NUMBER. 



10 
J. C, PAO 04/25/68 — — —JO 



..ft.,,........,.,.,,. § . . > . .... ..»«.,»,«.»»».».«..,,,,,, » « » ... » . > . » . 



..;o 



432000 
433000 
4340Q0 



BEGIN 



LABEL 



L1»L2>L3*L4»LE; 

IF NXT. [36163 s "." THEN GU TO LU 



435000 
436000 
437000 



IF NXT,£36l63* M e" THEN GO TO L3J 
IF NOT SCAN(O) THEN 
IF GENERATE THEN EDI Tl NGU *NCR ) i 



438000 
439000 

««QQ QQ 



» • 



r~ 



'2 
3 



9 
10 
11 
12 
13 
14 
15 
16 
1? 
18 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ' 

36 

39 

40 

41 



IF EUF I 

IF NXT.C 

.±i£JlJj!_..J. 



HEN GU 
3 6:6]= " 

II...JiM 



To LE* 

. " THEN 
„ii£_A_ULClML. 



THEN * NOT DECIMAL 



±.(JU.L^..._ _, 

POINT* PICK 



UP ANY WAY, 



IF B8K 
BEGIN 
IF QFIME THEN ERhOF N»l .. ELSE C V C 9 3 . C 36 : 6 3»ERX<- 1 i 



01441000 
1 4 4 2 C 
QJ.4AJQ0.U 
01144000 
01445000 
J11A46..0Q0 



IF 
IF 

_EMj_ 



i\(JT SCAM a J T*Ei\ 

GENERATE lrlEi\ Eu If I in G C 1 , 1 ) ; 



GO TO ie; 



LI J 



IF NOT 
IF G£N 
IF EOF 



scan 

CRATE 



CI) THEN 
THEN EUlTIivGCl' 1>J 
GU 1Q L2; 



~k.£ 



L2I 



IF NXT,C42:63*U The iN 
PEG In * NOT A uECImml P 1 1\ T - 
IF OFJijE THElv ENt<DFiMM ELSE C V C 9 J . C 36 : 6 J «-ER X«- X i 



GO T 
END EL 
-IX BBK 



0144*7000 
014^8000 

ai44.VQ.0i; 

01450000 
01451000 

aU.52fifiXL 

01453000 
0145400C 

-iUAaiaflXL 



lc; 

SE 
- T HE INi 



GO tn 1 2; 



IF 
IF 
.EADI. 



NOT SCAKCO) THEN 

GENERATE THEN ED I T I iv G ( 1 > N C* ) i 



IF EOF T 
IF NXT.C 



HEN GO 
36*6 3*" 



TO LE; 

X" THEN PERCENT; 

£^_IM£i!LJiIL-Ifl_k£i_ 



L3: 



IF 
IF 

...X£. 
IF 
IF 

J.F. 



NOT S 
GENEH 

XilE-I 



CAN(l) 
ATE THE 

d£isi— u.0— 



THEN 
N ED 
Ili_U 



ITINGC 1.1)* 
2X 



NXT.C 
NXT.C 
NXTjt 



L4: 



36:63*' 
361635' 



X" 
+ " 



THEN PERCENT; 
THEN GO TO L4i 

THEN 



IF NUT S 
IF GENEK 
IF EOF T 



CAN(l) 
ATE THE 
HEN GO 



01456000 
0H5700C 

.-04-45 ft 000- 
01459QG0 
0146000C 

... .04-4.610.0X1. 
01462000 
014630C0 

.....Q.4A640QG. 
01465000 
01466000 
.04-4 67000 
G146800C 
01469000 
014 700QQ 



ThEN 
N EO 
TO L 



ITING(1,1); 

2; 



IF NXT.C 
IF NXT.C 

IF NOT S 



86.1 6] a" 
42*63*0 
C ANC ) 



X" T 

THE 

THEN 



HEN PERCENT; 
N GO TO L2> 



01471000 
01472000 

QJLUMQfl 



END 



LE 

procedure 

value" 

REAL 

COMMENT . 

t THIS P ROC ED 

IA VALUE OF 47 M 

*new value is NO 



IF" G E NE HA" f E THEN EDITT N GT 1 Yn C RHj"X" 

number; 

FCU_RTYJ(S)J 

T;~ " " 

s; 



01474000 
01475000 
147600 
01477000 
014^8000 
gi_4_7 9_000_ 

01480000 

01481000 

,01462000 



URE SCANS An INTEGEH AND EDITS INTO THE NEW CARD IMAGE :01483000 

INUS THAT INTEGER. IF THE SCANNING HAS ERROR OR THE 501464000 

GQQD THE ERROR HILL BE SET IN flQTh QlD A ND NEW CARD. .01485000 



45 

46 
47 
48 



I***** IMPORTANT! THE PROCEDURE ONLY BE 

• . t ..... ... . . * . . 



CALLED 

J. C. 



rtHEN "QFINE" IS FALSE. 

PAO 04/18/68 -----—■ 



J01486000 
101487000 
; 01 488000 



BEGIN 



INTEGER 
JLAflJEJL. 



1; 



01489000 
01490000 
0.1*9100.0 



49 

50 



51 
52 
S3 
54 



IF BOOLEANCDEBUGN) 



THEN WRlTE(FQU#0BG,"FauR*7"tNXT>; 

IF BOQLEANCS) THEN 

IF SCANCO) THEN GO TO LEi _ 



01492000 
01493000 
01094000 



55 

56 



Lll 



IF NCR>2 THEN 

IF NCR*LEA0INQ0CEV[0J#NCH)>2 THEN 

BEGIN % NO. OF DIGITS MORE THAN 2, 



01495000 
01496000 
01497000 



ERROR* 

IF GENERATE 

GO TO LEi 



THEN EDITING(1#NCR); 



01498000 
01499000 
01500000 



a 

4 
6 
6 

; 

J8 
9 
10 

11 
'12 

1131 



16 

17 

IB 

|_ 

,», 
20 

F 1 

22 
23 
24 
25 

26 

n 

28 ~ 
29 

30 

31 

32 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

46 

46 

47 

48 

49 

50 

61 

52 

53 

54 

55 

56 



end; 

if ci«-47-cif nck = 1 then ev'co ] t c 18 « 6 j else 

FVC01 .HR»<S3xlQ»FVLQ] .C24I6J ) lAiL. T H E N 

GO TQ Li* 

IF I<10 THEN BEGIN NCR*i; EVCO] . t 18163*1 END 

IF I*4rt THFN 



01501000 
01502000 
015030.00. 



ELSE 



01504000 

01505000 
01506000 



BEGIN NCR*2; 

EVtO].tl8*lJi]*ENTlER(I 
END ELSE GO TO I, W 



MOD 10)&(I DIV 



01507000 
10U36M2I61 j0l508000 
: -O-15C9Q0O- 



LE» END 
_BXAL.„PEQXEJ1LRE. 



IF NOT GENERATE THEN STARTGEN; 

F0URTY7; 

CHF CK NFXTCNLXT)> 



EOITINGCI'NCR); 



01510000 

01511000 

-0-1 



COMMENT 01513000 

j THIS PROCEDURE CHECKS THE "NXT" AGAINST THE GlyEN VALUE OF "NEXT"* . 15 1400C 

J J I _A |.S T AKES CA RE OF BRANCHING INTO A DEFINE AND SKIPPING THE "X" ANQt0l5l 5Q00 

IT H i'E " " COM ME NT •♦ . " 101516000 



VALUE 

Oi 

. . ....... .. 

2* 

3 i 

41 

5» 

6* 

85 

9: 
101 
121 
14_i_ 



OF RESULT: 
A RESERVED 



WORD OR "DON'T-CARE" UR NOT FQuND» IF IFX^LBK. 



THE END-OF-FILE. 

A SPECIAL CHARACTER OK DIGIT rtHKH NOT EQUAL TQ "NEXT". 

CTHE_ONLY CASE THE "NXT" IS_nOT 5CAM\£P F VEN N OT Ma TCH). 

THE RESERVED WORD "BEGIN". CNQf EDITEO). 
A SUBSCRIPTED IDENTIFIER, 

T HI RES E RVED WOR D "E nD". LWfiI_JLD_lI£Il2i . 

A SIMPLE IDENTIFIER. 
THE "NXT" ECUmLS TO 1hL G1"EU "i^laT". (kGT SCANNED). 

AN INVALID CHR uK Nu. OF Cn^ S > ? 3. ("STRm " IS 

'SfREW~PKCCEDORE"'"OR"TfR£AM VmLUL V AH 1 ABLE IF 



J01517000 
_».0ll l -80QJ 

J01519000 
J01520000 

_?.QJL5gl.Q.0JL 
101522000 
101523000 
101524000 



J01525Q00 

■.015*6000 

UN). » 015<:700C 

y,v f JO 1520000 



STREAM NAWE VARIABLE. 

STR EAM VAL UE VARIABLE At-aU I ts LU CAUC*J, 
STREAM NAfF VARIABLE ALSt IN lOCpLC*]. 

J. C. PAD 



t «, f «. y »».«»«».«. ««»..,«»». , . «.««««»»».«.»..«.«»» .. .»■■».« ........ 



"STRM" is 

("STRM" IS ON). S0152900G 

("STRM" IS 0N) .;Ol5 3O Q00 

("STUM" IS ON). J01531000 

04/22/66 ----- -I0153200C 

..../OIJLUOCC... 



VALUE 
REAL 



NEXT* 

next; 



BEGIN 



REAL 
LABEL 



1; 

l1#L4#lE; 

llf*ldf; 



% LlJ^EoT DEFINE LEVEL ENCOUNTERED. 



01534000 
01535000 

153 60CC 

015J7000 
01538000 
015390CC 



LI! 



IF EUF THEN 

BEGIN CHECKNEXT*i; GO TO LE EhQi 

IF NXTsNEXT THEN BEGIN CHECKi\£XT*8; 



GO TO LE END; 



01540000 
01541000 
01542000 



■■»%» ihen begin percent; go to li 



COMMENT CHECK THE 



IF I*NXT.[3G«6] 

IF I= M I" ThcN 

IF DFINE THEN BEGIN QFihEOUT; LLF»LOFJ 

IF NXT, [42163^2 IHEN BEGIN CHLCKNEXT*2J GO TQ LE END;0l546000 

NEXT CHARACTER IS A LETTER, CHECK WHAT IT IS; 01547000 



EN0>0154300G 

01544000 

GO TO LI END; 01545000 



IF BUQL£AN(I*SCANNING) THEN 



01548000 



dEGIN IF STRM 
IF 1*0 THEN 
BE G I N 



THEN CHECKnEXT*9; GO TQ LE END/ 



01549000 
01550000 
Q1551QQQ 



IF IFX«DFX*2 THEN 

BEGIN CHECKNEXr*3; 

TF IFXsQFX+4 THEN 



* reserveo word "begin", 
go to le end; 

* RESERVED WORO "FNO". 



0,1552000 
01553000 
11554000 



BEGIN CHECKNEXT*5i GO TO LE END* 
IF IFX=DFX+6 THEN % RESERVED wORD 
JF NHT FNOT.MMT THFN T 



"COMMENT", 



01555000 
01556000 
01557000 



begin commnt; go to li end; 
. go to if realcstrm)»0 then l4 else le; 
ENn; . , 



01558000 
01559000 
ni56onnn 



• • 



r~ 



ft 

,3 

I 4 
5 

6 

8 

! 9 

10 

11 

12 
13 
14 
16 
16 
1? 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



29 
50 
31 
32 

a 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

46 

46 

47 

48 



49 
50 



52 
53 



IF I.U2:6]*2 TMtiN 
IF STRM THEM 

.. JiEGUM CHECKNE-XT «lLE— US-Jil Lh JL - &LSJL...LL 
GO to le; 

END ELSE 

BEG IN CHECK NEXT» IF 1 = 6 THEN EL.SE. Ij 



GO TO IF KEA,L(oTRM) = THEN >-4 ELSE L£J 
END ELSE 
3 E.GJ N % THIS IS A ULFI^L f 



L4« 



0FlNElNCllMF0tI#t29*S]#I,C34i8j J); 
IF B47 THEN 

tf LnF aQ Then str.o,03.[46: 13*1; go to li; 

end; 

IF GENEKATE ThElM LDI rii\GC l#iNCH); 
-AflZAFALSf > 



Ol^olOOO 
01562000 

.0.1563000 
01564000 
01565000 

.Q1566QQQ 
01367000 
01568000 
01569000 

oYs/oooo 

01571000 
QjJ L2.QQ.Q.. 



IF BOGLEANCDEBUGN) THEN WRITEC FQU* DBG,«cHknXT"* nXT# IFX ) } ENO; COMMENT 
END CHECKNEXTJ 

.R£.AL__p R QCEOyR£ __ _B_A.LA_1ALAMJL1 ^A Js U£_JJ_fl£AL_li_.-filMABDJ 

REAL PROCEDURE BRACKETC CLOS»lDT ) > 

COMMENT , , 

J THIS PROCEDURE PROCESSES A STJUNG 



01573000 
01574000 
0_Ux/_50.Q.Q ... 



Tp"A'i"R OF BRACKETS oV" PARENTmESEST 



O F ALG Qu lang uage e nclosed I n A 



VALUE 
.0' 

is 
3« 

41 
5* 



OF RESULT* 

THE GIVE N "3" OR ") " NO T FQunQ, STOPPED AT ")"* "] " O R A 

SEMI COLUMN, "" 

STOPPED AT END-OF-FILL. 

..STOPPED A.T.,."b£filj^.,__ _ „ _ _..._., 

THE GIVEN "3" OR ")" HAS FoUwO AivO PROCESSED. 
STOPPED AT "END". 

-- — ——. J. C, PA Q 04/22/68 --— '■ 



,015/6000 

01577000 

015JJ.QQQ 

01579000 

,01580000 

_»OlbdlOOO 

"VoTsTzoob" 

J01583000 
:0l584000 



VALUE 
...REA_L.._ 



clgs^edt; 
-CL CS/E PLL 



S01565000 
S01586000 

J H1MLSLQ& 
J01588000 
*01389000 

■ tOl5 VQ OO0 

,;01591000 
0l5y2000 
_.J3Jl5_9J.QQJL 



BEGIN 



REAL 

.LABEL 

IF BOOLEANCDEBUGN) 



i; 

-LL! 

THEN WRlTECFQU,Ddii,»PRACKT">NXT»CLOS,EDT); 

IF BOOLEAN(EDT ) THEN 

BEG IN . __ _ 



IF DFINE THEN 

IF CLOSs"]" THEN IF CVC9 ] . [43 S2 J *0 THEN ERRDFN*i; 

IF NOT SCAN(l) THEN 



if generate then edi tlngc 1 * 1 ); 

enc; 

IF BUOlEAN(bRACKET»BALABALA(On THEN 



01594000 
01595000 

.Q1596.QQ.Q. 
01597000 
01598000 

. Q1599Q,.QQ_. 
01600000 
01601000 
01602000 



BEGIN ERROR* GO TO LE END* 
IF NXT.£36J63*CLQS THEN 
BE GIN X ERR08 CONDITION. 



01603000 

01604000 
01605000 



IF DFINE THEN EKRDFNi-l ELSE 
BEGIN CVC93»[36*6]*l; ERXM 

go to l e; 



01606000 
01607000 
01606000 



END. 



01609000 
01610000 
Q16UQQQ 



end; 

IF NOT SCAN(l) THEN 

IF GENERATE THEN EDI Tj NGC 1 ,1 )i 



BRACKET^; 



01612000 
01613000 
01614000 



LE! END 
REAL PROCEDURE 



COMMENT 



BRACKET* 

subscript; 



♦ .«.«»..♦»«.«... ■«»■«!«. ♦«««»»»««»«. «».«»«». I ««.«««»««» . ««».»«». 



01615000 
01616000 
01617000 



*t 



r this procedure picks up the subscription if there is any. 
I value of result* 01 no subscription is found. 

J II STQPED AT "BEGIN". . 



IQ1618000 
101619000 
101620000 



•> 

3 
4 
5 
6 
I 
8 
9 
10 
VI 

I 11 - 

14 



r 21 
22 

231 
24 

pe" 

26 
27 
28 
29 

30 
31 
32 



(37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



3: 
8: 



5T0PEQ 
ThE SU 



A I M EM3" . 
BSCHIPTIUN IS 



PICKED UP, 
£AQ _,..J3.4/22/68 



10 
SO 

_i.il 



BEGIN 



.REAL 



_I_L 



LABEL 
IF 800LEAN(DEBUGN) 



L1.L2»L3..LE> 

THEN WrI TECFCU»Db<-» M 5UB3PT H »NXT ); 

IF EOF TH EN 



Lll 



L2I 



BEGIN SU83CRIP 
IF NXT.C36J6]* 
IF (UCHECKN EX 



TMJ GO TO LE 
"C" THEN GO TO 
T(4&"."C36J42» 



ENDi 

L2; 

6)))*8 THEN 



BEGIN 

IF (I+BRaCKE 

BEG IN SU R ^ CH 



T("]M))«4 TH 



EN 



COMMENT ILEAGAL 



IF NOT BOOLEANCI) THEN 1*2) 
END ELSE 

IF 1=2 THEN _ 

IF NXT,Ui>»6]* 
ITEI* FOLLU^S THl 
- IJ_H£IME-.-.IH£.N 



! 4 THEN GO TO L 

5 SUBSCRIPTED 

X.&itJi"-N>-.l_-EL-S.£~- 



3i 

iu, possible error; 






.JUA 





IF l»2 THEN CV 
BEGIN ERROR; C 

SUBSCR IPT*-! '» 



[9J.C36:6]*.ERX 
It«3._36l6.*i 



*1 ELSE 

end; 



__ _ - L3J _ 

LE J END SUBSCRIPT; 
REAL PROCEDURE PARTIAL(P); 

C.P.M.ME NT... ... ....... ..j. iiLitJui 

THIS PROCEDURE SCANS FoR A 
CONCATENATE-FIELD IF PX1, 
1ALJJE-..QE -RE SU LT ; 



ULUXU. __*- l!IJ.l!LlJ.i.U.i..'.l.UJ _____•_». .JLi-J_*_ftJ_CJLJLX.t.Ji_«.A.«_»_t..*. 

PARTlAfFIELD IF P»l» OR SCANS fQR A 






.JU-6 
JO 
JO 

m 



t 

i 

.± 
i 

i 

i 
i 



OS 

1» 
.2-1. 

3» 

41 

5» 
6« 

8* 



A RESEVED WORD. 

THE END-OF-FILE. 

A SPECIAL CHARACTER 



OR DIGIT. 



:Q 
SO 
JO 



(NOT SCANNED), 

THE RESERVED WORD "BEGIN"* (NOT EDITED). 

. A SUBSCRTPTFD IDE NTIFIER . __.,_ 

THE RESERVED WQRO "EinO". (NOT EUlTEO). 
A SIMPLE IDENTIFIER. 
.JH.E.XIELD .IS_ PPQC ESSED, 



JO 
JO 

_____ 



JO 
JO 

JJ_ 



J. C. PAD 04/26/68 



J_AL__JL__ 
REAL 

_&__A]__ 



______ 



JO 

;o 



BEGIN 



XL- 



LABEL 
IF BOOLEANCDEBUGN) 



LWL2*L3#L4*L3 
THEN WRITE(F0U 
P» IF BOOLEAN. ? 



>L6. L7»L8,l9.L 
#OBG» w PARTIL"» 
) TH E N 2 E..SF . 



e; 

nxt>p); 
li_ 



COMMENT LOOKING 

LU 



for "t" first; 

IF EOF THEN 

BEGIN PARTIAL*!; GQ TO LE END; 



L2» 



IF NXT.C36J6J" 
IF NXT.C42i6_* 
BEGIN % POSSI 



"t" THEN GO TO 

THEN 

BLE ERRORS THE 



L4J 



'_" NOT FOUND. 



621000 
622000 

6i.ljQ.aG.. 



624000 
625000 



62700C 
628000 
629000 



630000 
631000 
632000 



633000 
634000 
6J5QQQ. 



636000 
637000 
X8.ilQ._a. 
639000 
640000 

6_.lQ.aa 
642000 
643000 
6JL4C0X). 



645000 
646000 
_____1Q.Q.. 
648000 
649000 
6Jaj0fl.aO. 



651000 
652000 
653000 



654000 
655000 

6.3.6.0.0.0 



657000 
658000 

65.9Q.Q.Q.. 



660000 
661000 
662Q00 



663000 
664000 
665QQQ 
666000 
667000 



669000 

6/0000 
6. 1QQQ 



672000 
673000 
674000 



IF DFINE THE 
PARTlAL«-2; 

end; 



n errdfn*! else c vc9 ] . [ 36 j 6 ]«-erx«-l ; 
go to le; 



675000 
676000 
6/7000 



IF (UCHECKNEX 
BEGIN 

IF I«2 THEN 



T(4« M C ,, t36J42t63))X8 THEN 
GO TO L2J 



678000 
679000 
680000 



• • 



r- 



>, 



?r 



10 1 



13 



IB 



16 
17 
18 
19 
20 



22 



24 



27 
28 



30 

31 



32 



36 

37 " 



41 
42 
43 



44 
45 



47 
48 



52 
53 



55 
56 



COMMENT 



.1.3.1 
L4i 

"IF IT 

NOT 



IF DFINE THEN EKRDFN«-1 ELSE 
BEGIN ERROR; CIL93.L36I6JM END; 
-PARTTAl til GO TO i.El __ 



end; 

IF NUT SCAN(l) ThEN 

1L GENFRATF jMnL-SJUJlh&Ll^LlI 

IS DURING EXECUTION OF a DEFINE* 
RECOGNIZED AS A PARTI AlTIELD* NO 

. IF D FINE THEN 

BEGIN 

IF ERRDFN«0 THEN 

IF I»CV.9__U3 t2]XQ THEN 

BEGIN * CHANGE WAS (MADE IN 
IF IXP-1 ThEN ERHDFN*i; 
FND FLSE ERRl-FN-1- 



AND THE 
SCANNING 



"C" WAS MARKED 

IS need; 



01681000 

01662000 

-Q1.6.&_-__fl.fl. 

01684000 

01685000 



THE DEFINE, 



COMMENT 



MAKE 
16' . 



L7I 



end; 

SURE THE BIT INDEX IS A INTEGER; 

... IF EOF THEN GO T O Li; 

6<t7*P>i; 

if nxt. [42:61*0 then go to 

_i£_li*£hl c k ne x t ( 1 ) ) x2 then 

begin % mark error, 
if dfine then errdfnm else 

if is 2 then c v l93.c36ia j-ehx*-!. 

begin error; cic9],c36i6]*1 end; 

if (partial < -bhacketC"]"#o))»4 then partialis; 

*U)_JEfl_L£J_ 



01687000 

01688000 

. -0.1619jQM 
01690000 
01691000 

._-_Ll691fl___L 
01693000 
01694000 

-XLtWLaaoa. 



01696000 

01697000 

_0l.69ICi0.fl 



La; 



A DIG IT. 



___Li__L 



.LB I. 



end; 

IF NXT # U2»6J*0 
IF CP*P«t)gQ 



THEN 
1HO 



GO TO L7J 



BEGIN 

IF NOT SCAN(O) THEN 
- — - IF GrNFR_U THFN FnlTTNr.fi.NrRW 

ENC ELSE 

If ° F INE THEN I -RE AL ( SC AN ( ) ) ELSE F0URTY7C1); 
...... CJ3.M M£ N j ..ChECK THE "«" OR 



01699000 
01700000 

.-..oi.Lo.1000^ 

01702000 
01703000 

-_.fl.lZJJAQ.0J3., 
01705000 
01706000 

- O4Z.a7.fl.Ofl 

01708000 
01709000 

— 0171000Q 



017U00Q 
01712000 

ni7i3ono. 



-________. 

IF EOF THEN GO TU LI* 
IF NXT«(I*44CIF P s THEN 
_G_LJ__L_J2i_ 



L9J 



IF NXT f C42*63»0 Then BEGIN 
IF CI«-CHECKNEXTU))*8 THEN 
IF NOT SCAN(l) T HE N 



LE» 
RCAl PROCEDURE 



IF GENERATE 
IF P>0 THEN 
FAETIAL-8; 



THEN EDlTlNGCl7l)i 
GO TO L6/ 



01714000 
01715000 
Qlll 6fl0fl 
01717000 
-« ElSe w !")C3b:42.6] ) THENO1718000 

..fll21.9..Q.fl.Q... 
01720000 
01721000 
01722Q00 



1+2; GO TO 

GO TO L7; 



i-7 end; 



847+false; 
end partial; 

strmprqcdur; 



REAL PROCEDURE CONCATENATE; 
COMMENT 



FORWAHO; 



01723000 
01724000 
0172500 
01726000 
01727000 
01728000 



i 



NT , 

this prqcepure scans for the part starting from after*the 
•ncatenate expression. ~~ : ~~ 



«A CONCATENATE 

I VALUE OF RESULT* 



M &* IN 



01729000 

.01730000 

J01731000 



01 

i"i 

2« 



WORD , 



31 

41 
5» 



A RESEVED 

THE END-8F-FILE. 

A SPECIAL CHARACTER OR DIGIT, 

(NOT SCANNED), 



101732000 
1017 33000 
«0173400Q 



THE RESERVED Word "BEGIN" 
A SUBSCRIPTED IDENTIFIER. 
THE RESERVED WORD "END". 



• (NOT EDITED) 
(NOT EQlTEDJt 



J01735000 
101736000 
»01737 Q0Q 
101738000 
101739000 
101740000 



1 

i 

i 



1 
2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 I 

18 

19 

20 ' 

21 

22 

23 \ 

24 

25 

26 \ 

27 

28 

29 I 

30 

31 

32 % 

33 

34 

35 i 

36 

37 

38 % 

39 

40 

4,1 

42 

43 

44 f 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 i 

54 

55 

56 ' 

3 



m 



• • 






111 

113 1 
ill 



,18 

19 

^ 

22 

23 

24 

26 

26 

.27 

28 

29 

30 

3V 

32 

33 

34 

35 

36 

37~ 

38 

39 

40 

41 

42 

43 

44 

45 . 

46 

47 



48 
49 
50 
51 
52 
53 
54 
55 
56 



y_ 



6S 
85 



A SIMPLE IDENTIFIER. 

THE CONCATENATE ERPRLSSlUN IS 



COMPLETLY 
J, C. PAQ 



PROCESSED, 
.. 04/26/68 



BEGIN 



_„_i_A_ 

LABEL 
IF BOOLEANCDEBUGN) 



XL 



L1»L2#L3#L4»L5#L6»lEJ 

THEN WRITE(FQU*0BG,"C0NCAT"*NXT); 

FF KUF THEN 



LI! 



_k_JL. 



L3« 



BEGIN CONCATENATE*i; GO 
IF B00LEAN(I«-CHECKNEXT(1 

BEGIN 

IF DFINE THEN L«R0FN*1 

IF 1-2 THEN CVIV] .[36: 

BEGIN ERROR/ CHVJ»L3ft 



to le end; 

)) THEN 



ELSE 
6J«-ERX<-1 ELSE 
ttl + \ ENQi 



101741000 
101742000 
L0.1243£0.S 

J01744000 
01745000 
Q1 74^6 Q Q Q 
01747000 
01748000 

.0174900-0- 
01750000 
01751000 

-XUZ52000 



concatenate*!; go to 
end; 

.J_F.J»_i________^__. !____.__ 

IF 1*2 THEN 

BEGIN 

lE..-MM.^U°}Al~?l:L.l.mi 

IF NXT,[36«6}a'»C" THEN 
GO TO IF CI*BRACKET(") 

IF NXT.U2__a*--..-HE-J 



le; 



.-■BEGI^ Sl.Pg,N,£X_GO., ,.L0 , L4 jjOSU 
"M))*4 THEN L4 ELSE L2; 



BEG 

I 

_ 1 

END 

eno; 

IF I» 



IN 

F NOT SCANCO) 

LJ____________lH_. 



01753000 
01754000 

_0l75 t iQ00.. 
01756000 
01757000 

.-__L7___3__U 

01759000 
01760000 

J_l7__l__0_L. 
01762000 
0l?63000 

-0^764004- 



THEN 

tL.LC HI ___ Ll rkLBll __1_JJ_J___L 



; GO TO L2> 
0- TH FN 



BEGIN 

IF 
_J__ 



NXT,C36:6]*"(" 

Tf] IF U + BR AC K 



THEN 
ElC , )">.U i^ TH E N L 4 E .LSE 12/ 



end; 

IF I_ 

________ 



10 THEN 

-If. C I » S Tii____fi.-___i____ THEN L4 ELSE L2i 



L4: 



IF 1*4 THEN 

IF ( USUbSCHlPT )/B THEN 

IF EOF THEN _0 To Ll i 



GO TC L2; 



IF I«-NXT.[36:63* M t M THEN 
IF is"," THEN GO TO L5; 
IF NXT.U2»6]*0 THEN GO 



L5I 



IF (i«-CHECKN£XT(4&","[36 
BEGIN % NEXT IS A »," P 
IF NOT SCAN(l) THEN 



GO TO L6; 
TO L2J 



U2S6J )3 = 8 THEN 

ICK UP PARTIAL-FIELD 1ST, 



IF 

GO 

end; 



GENERATE THEN EOITI 
TU IF CI*PART1AL(1) 



NGC1/1); 

)=8 THEN L6 ELSE L2; 



01765000 
01766000 

.J_4Z___0X_3 

01768000 
01769000 
1 7-7_Q.flO.Q 
01771000 
01772000 

JU___l_fl_ 

01774000 
01775000 

QJL7-Z.flXI.fljQ 
01/77000 
01778000 
.0_1-7Z9.Q00.._.. 
01780000 
01781000 
0178200 
01783000 
01784000 
JU.7_8_50J30.__ 



L6: 

LE» END 
REAL PROCEDURE 



60 to if ci«-paktialc0n = 8 then li else l2; 

concatenate; 

fillstatehent; 



01786000 

01787000 

JL1____L0J___ 



COMMENT ♦ 
I THIS 
« VALU 



01789000 
01790000 

01791Q00 



PROCEDURE PRBCESSES A FILL-STATEMENT. 
E OF RESULT* 0-6» SaMe AS IN "CHECKNEXT" PRQCEOUREt 



6« PROCESSED 



Iai I TH A SEMICOLUM. 

- J, C. PAO 06/19/68 



01792000 
01793000 
01794000 



RE 
J_A 



AL 
§___ 



BEGIN 



01795000 
01/96000 
01797000 



L1,L2«L3jLX*LX1»LX2>LEJ 



01798000 
01799000 
Q1 9 QQ0 Q 



• • 



s 

o 



12 

4 
6 
6 



(20 
'21 



E3 
4 
61 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 ~ 
38 
39 
40 



43 
44 
46 
46 
47 
18 



49 
50 



61 
52 
53 
54 



55 

56 



LXA 



1X1$ 



IF GENERATE THEN EDI Tl NGC 1 ,NCN ) > 

IF ( I*CHECKNEXTC1>)*4 THEN 

BEGIN _ 

IF DFINE THEN ERROFNM ELSE 

IF I«2 THEN CVtV] t [36l6]*EHX4-l ELSE 

BE GIN FRRGR; CIL93.C3 6:6]»I ENnJ 

FILLSTaTEM£N7>W 

enc; 

_I£ (I» SMH SCHl PT^a _ 



% THE WORD "FILL". 



go ig le; 

JiJjEJt_jafl_Xk._UL 



J.1L 



IF (I*CHECKNEXTC13)#0 THEN GO TO LX; 
IF IFX/OFX+33 THEN GO TO LXi % DFX+33 IS "WITH" 
.ST RH»B ()ULEA N (2 )f I*CHECKNEXU 1 ) ; STRM»FAL SE; 



IF I»2 THEN 
BEGIN 

if nx r .X 4 a ; t> 3~c j 



JJULhL 



BEGIN 

IF NOT SCAN(O) THEN 
I F GFNFR aTF THFN EnTTTWG f l *NrR^i 



END ELSE 

IF NXT. 136:63 = 

■■GJO-TO L?.i 



THEN STRING ELSE GO TO LX 



LX28 



end; 

IF 1*0 THEN GO TO IF BQOLEANU) 

IF IFX*BLK THEN UU TO LX?; 

IF EV[0J,C18;18]X ,, GCT" ThEN 
BEGIN 
_ 1£ SXN£LRAl£..JHtLN_iLlUllJ^lli.NJ:iUi.. 



THEN LX ELSE LX2; 



JfijQLlILJ-Xl, 



end; 

if not generate 

EV[63.tlfil6]»3j 



THEN STARTGEN; 
EDITINGC1W ); 



oiaoiooo 

01802000 

. Q.iaQ3Q.Q'D 
oiaoaooo 

0l80b000 

_fl_UflAQDjQ 
01807000 
01608000 

. Ql MSflOJ) 
01810000 
01811000 

...J0.L§12vOQ.Q 

01813000 
01814000 

...flJL&lAOQjQ. 
01816000 
01817000 

.JU&lAnOQ.. 
01819000 
Old^OQOO 
04-821000 
01822000 
01823000 

ill §24000 

01825000 
01826000 

01828000 
01829000 
0183QnOO 



L2* 



L.3» 



TRNSFCHR(EV[OJ*EVC03#3#6*NCR«-NCH 
FST*4; EDITING(2*NCH); 

IF (I»cHECKNEXT(4& w » w C36U2»6J))»8 



IF I»2 AND NXI.C J6J63s«;" THEN 
BEGIN I»"J") 

._ IF NOT SC ANC1) T HEN 

IF GENERATE THEN EDI T I KG ( 1 , 1) i 
IF ! = ";•• THEN 1*8 ELSE GO TU lU 

XMLL_JiajLQ_mi 



3); 

then go to L3, 



LEt END 
REAt PROCEDURE 
COMMENT , 

J THIS PROCEDURE PROCESSES A 5TH£AM*PR0CE.QURE-C AlL STATEMENT. 
I VALUE OF RESULTI TU 6 » SaM£ AS INDICATED IN "CHECKNEX T" . 
J 8: THE PROCESS IS cumpleteo* 



fillstatement; 
strmprocdur* 



01831000 

01832000 

018330 00 

01834000 

01835000 

Ql8.36fi00. 

6 183 700 6 

01838000 

.SU&22MSL 



01840000 
01841000 
01842000 



;01843000 
J01844000 
J01845000 



PAO 



06/06/68 



BEGIN 



REAL 

ARRAY 

LABEL 



I* J»N»B*P'X; 

ECO«83; 

Ll*L2»L3>L4»L45'Lb»L6»L7jL£j 



101846000 

;01847000 

01848000 



IF BOOLEANCDEBUGN) THEN WRI TE<FQU#D8G, "STMCLL"* NXT) i 
COMMENT FR8M THE INFO-INdEX OF THE STREAM PROCEDURE IDENTIFIER* IF 
OBTAIN THE FORMAL PARAMETERS INFORMATION, WHERE 



0l8a9000 
01850000 
01851000 



X* 



01852000 
01853000 
01834Q00 



Nl ONE PLUS THE NUMBER OF WORDS Op 
OF THIS ENTRY IN INF0C*>*3» OR 
N ■ 1 ♦ (<NUMBER OF FORMAL PARAMETERS> 



THE ADDITIONAL INFORMA 
+7) DIV 6. 



TION 



01855000 
01856000 
0185700 



X» ONE MINUS THE lNFO*lNDEX QF THE ADDITIONAL INFORMATION OF 01858000 

THIS ENTRY IN INFQC*»*3* 01859000 

N»(F»INFQCIFX«C 35*53* IFX.C40 t 83*1 3 ).C4*83 01860000 



# • 



# 



I 

B 
9 

10 



I4| 

: 'H 
is; I 
i i 

I 
lIS 

'19 

20 



21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 

33 

34 

) 35 

36 

39 

40 
I 41 

»2 

43 ~ 
I 44 

45 

46 
' 47 

ts 

49 
50 

51 
52 
53 
54 
55 
56 



LI' 



x«-ikx+p-i; j*7; 

IF rT»CHEfiKN h XTC4<t"f«nft; 4?:f,. n)/R t khu 
BEGIN 

IF OFINE THEN EHROFN*! ELSE 

— I£_i«2_-Thfn rvm.r <6muFHX*i n s E: 

BEGIN ERRUR; CIC9J.136;6]*1 END* 

IF eOULEAN(I) THEN STRMPrCJcDUR«- I ELSE 

IF BnDl.LAMf B) ThFN 



01861000 
01862000 



01864000 
01865000 



L2« 



01867000 

01868000 
i r BMU I.fc. ANF HI T"FN ___0l_869 

Jf J T ?! , !! S9KESS RACKETC "^ H ' 0) "« THEN STRMPR0CDUR*8 01870000 
ELSE ELSE STRMPRQCOURM; GO TO LEJ 018/1000 

£Mi 0i873onn 

01873000 

01674000 
018/5000 



B*i; % B REMlNEb THE FACT ThAT "<" M5 PROCESSED 

IF NOT SCAN(i) THEN 

IF GENERATE Th£N £D 1 7 I NG C 1 # 1 1 i 



STRM«-B0QLEANC2); I'CHECKNEXT C 1 ) ; STRM«-FAL5E; 



.COMMENT 



.-«««."'' <*w"i,m«txnii, STKM*f AL5E; 01876000 
IF BOOLEAN(l) THEN q(j TO Hi 01877000 

rr ,,.,.,,.« tuc. 01879000 



CHE 

BY VALUE/ 



L3 : 



if cj«-j + 1) = 8 then 

-BXjuln. j»qx 

IF (N*N-l)SO 
BEGIN % 

_LF_Jj>!2 



THEN 
SHOULD HAVE 
JdJEH 



NC MORE PARAMETERt 



COMMENT THIS 



IF GENERATE TH£N EDI TING { 1* NCR ) ; GO TO Lij 
END; P*IftlF0lCX*X+l),C35J5]*X t [40l8]]j 

_EMJ IKaSfCh8( B*P»7»j *i )} _ __ 

IF NOT BOOLEAN(B) THEN BEGIN B*l; GQ~ TO lFenDJ 
IF B«3 THEN GO TO L4,' 

a£_tural p arameter is ca lled by_valuej_ _ 

IF 1*2 THEM ~~~ 

IF GENERATE THEN £011 INGC1* N qH) > 018V2000 

If B0Q|EAN(UiALABA|.Aj,UM,„ [ 3 6M2»63)3 THEN GO T fl 1 1 i 1 8 ft 3 

IF I*NXT,C36I63«"#" THEN G TO l 2 } »- er>,r z~~ 



01880000 
-QjLS.ii.LQm. 
01882000 
01883000 
0i6B4nnn 

01885000 
01886000 
-0.1-8-8.7000. 
01888000 

01889000 
01890 Q0Q 



01891000 
018V2000 



COMMENT 



"this" 

L4» 



IF I«")" 

1*2; GO 



THEN GO 

to li; 



TO L7J 



ACTURAL PARAMETER IS C A |_ L E D ~8 Y NAME; ~ 

IF DFINE THEN IF LLF>0 ThEN UO TO L3 ELSE 
BEGIN STR[0*C].U5ti]»i; GO TU L45 END; 

IF NOT GENERATE THEN STARTGEN*" 

E[C]«-EVt0l; 

IF NCR >5 THEN THNSFWQS(E L 1 3,E V[ 1 u ( NCR+2 >. L 36 19 3 W 



01894000 

01895000 

_0_l896flJlfl. 

018V7000 
018V800C 

...,oiS9_9p_ag_ 



01900000 
01901000 
01902000 



EOITING(1*8);01903000 
01V04000 



L45I 



— ' '— =L - L2 *-»'-' '•' ■-- — "■'■■ — » aa » a * * *» ' *> * J -F » H V n 

EV[0 3«-"P0INT"; EVU]*0*"ER("ci»3lil7j; 

EVtOJ«-ECO]j 

I F NCR>5 THEN TRinSF h DS C £ V [ 1 3 ,E f n, (NCR+?) . f U « 93 } i n^ QSnn^ 

EDITINGC1#NCR); -— -^a -j^-lm^v 

IF I«4 THEN 

IF fI»suBSrRrBT^fl twf n ____ 

BEGIN 

IF 1=2 THEN 



01906000 

01907000 
Ol9o*nnn 



IF NXT.C 36l63»«»" THEN GO TO LS ELSE 
IF NXT.C36t63« w >" THEN GO TO L6; 



01909000 
01910000 
019UQQQ 



L5I 



END ELSE 

IF U»CHFtKNFXT(4* w *"C36t42»6m»8 THFN 

begin cco*cc; nco+ncd; 

IF DFINE THEN IF LLF*Q THEN GO TO L3 ELSE 
PEGTN STRfO/Q3.C44m«-i : fin Tn 12 fmhi 



01912000 

01913000 

-019140QQ 



IF NOT GENERATE THEN STARTGEN^ 
EVt03*04 w )"Cl8«42i63; FST*4; EDITINGC 1* t ); 

fiP Tn 1 2j _______ 



01915000 
01916000 
01917000 



01918000 
01919000 
01920000 



< 



1 
2 
3 
4 

5 

6 
7 
8 
9 

10 

11 I 

12 

13 

14 1 

15 

16 

17 ( 

18 

19 

20 I 

21 

22 

23 < 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 < 

33 

34 

35 | 

36 

37 

38 ^ 

39 

40 

41 I 

42 

43 

44 8J 

45 

46 

,4 

48 
49 

50 % 
51 
52 

53 m 

54 
55 
56 SJ 



b 



> 



i ■ 

9 

,ior 

IV 
12 
13 



16 
17 
18 

: 
". 

b.2 

23 
24 
26J 
26 
27 
28 
29 
30 
31 
32 

:m 

|S4 
35 
36 



37 
38 
39 
40 
41 
42 



43 
44 
45 
46 
47 
*8 



49 
50 
51 
52 
53 
54 
55 
56 
P7 



L6* 



L7l 



END ELSE 

IF 1 = 2 AND NXT.[36l6]»">" THEN 

.B££U&L CC.OfCCi muhmcd; 

IF DFlNE THEN IF llFJO THEN GO 

BEGIN STR[0#0]iU4«UMJ GO TO 

-1E-MQT GENEHAU THEN START GENJ 



TO 
17 



L3 ELSE 

end; 



EVC0]«-0&"r , tl8!'»2»6]; FST*u; EDHINGCl'l); 
IF NOT SCAN(l) THEN 

IF GENERATE ThEN EO lTINGtl>nj 

STRMPRQCDUR«-8i GO TO LEi 

end; 

XfiRQR; Cl[93.C3 6»63»lf 

IF BOOLEANCl) THEN qQ TO LI' 

IF BO0LEAN(I*yALABALA(U","[36l42lflj)) THEN GO Tq Ll 
IF- I*-NXlx C36l6]« !lJL , LJJb£j^-fiJa_Ik-lAJ 



01921000 
01922000 
...0.1,9.2 i.Q.Q.Q 
01924000 
01925000 
0±92AQQ0. 



LE» END 
'REAL' PROCEDURE 
COMMENT 

» THIS PROCEDURE 

iNEXT IS A "3", "7% "BEG IN 



IF I*")" THEN GO TO 
1*21 GO TO L1J 

strmprocour; 

balabalac i); 



L6; 



PROCESSES A STRING OF ALGO L LANGUAGE UNTIL T H E 



VALUE OF RESULT: 



OS 

35 

5J 



',"END M OR SEMICOLUMN. 
STOPPED 
MI1£££Q. 



AT A "3»,«}« UR SEMICOLUMN, 
JJ_£NDiflEi£lLE_». 



STOPPED 
STOPPED 



AT 

AT 



"BEGIN". 
"END", 



.P-AO SUU2ZAh& -------- 



VALUE 
-REAL— 

REAL 
.LABEL. 

LABEL 

LABEL 
LABEL.. 

LABEL 

LABEL 
..LABEL 



i; 

.IX 



BEGIN 



01927000 

01928000 

<H929J)..QJL 

01930000 

01931000 

...Al?i2flflfl 

01933000 

^01934000 

fl 1.9.35,0.0.0 

01936000 
01937000 

...QH9MQ0Q 
01939000 

,01940000 

,i.oi_9«ippo 

1 01942000 
J01943000 
lQi.9JL40.CLQ. 
«0l945000 
J01946000 
J.Q4.9*UQOlQ 
;01948000 
019^9000 

...juusioocm 



stop; 

J*±aL2jlL1 'IV 



ni; 

C1>C2J 
WWW2J 
WSi*WS2^ 

wpi»kp2'WP3; 



IF BOOLEANCOEbUgN) THEN W R ITE(FOU*DaG*"BALABA' , 'NXTM); 

IF CST0P*I.C36|6]}^0 THEN 1*1. [42163; 

_. IF 1*4 THEN GO TO WSl EL SE it S TART TO PICK SUBScRP T 



COMM ENT 



IF Is6 THEN GO TO WP1 ELSE * START TO 

IF 1*10 THEN GO TO wS2* % START TO 

THIS IS THE END-OF-FILE; . 



PICK PARTIAL. 
PROCS STRM PK 



01951000 
01952000 

..JUiilflLflfl.. 

01954000 
01955000 

0_l9.56.0.Q.a. 

01957000 
01958000 

...Q_i.i5.?j3.Q,a. 

01960000 

01961000 

j.0l962j>0£.. 



Lit 
L2» 



COMMFNT THE NFXT 



IF EOF THEN 

BEGIN balabalah; GO TO lE enu; 

IF I»0 THEN 

IF IFX*DFX+3l THEN 
BEGIN I*FlLLSTATEMENT; 

character is a dig it ; 



01963000 

♦01964000 

01965000 



01966000 
01967000 
01968000 



go to wp3 end; 



COMMENT 



L3» IF I*NXT.U2|63*0 THEN 

Nl» BEGIN NUMBERl GO TO WCl END! 

J.HE NEXT CHARACTER IS A SPECIAL CHARACTER) 



01969000 
01970000 
Qi m QQQ. 



CI * 



IF 
IF 



1*2 THEN GO TO Hit 
I*NXT,C36:63»' 1 ;" THEN 
is")" THEN GO TO LE; 



01972000 
01973000 
01974000 



go to le; 



IF 
IF 

JJL 



I»"3" THEN GO TQ LE; 

I«STQP THEN GO TO LE; 

!»"»" THEN BEGIN PERCENT; ,QQ TO Ll END; 



01975000 
01976000 
01977000 



01978000 
01979000 
01980000 



■*n« 



3 



• • 



? 

3 
4 
5 



9 
10 
II 

I2| 

k 



'lb| 

17 



la 



• B 



y 



,• 



!l) 

f 21 
22 

23 

24 

25 
26 
27 



It 



t 
• 



28 
29 

30 
31 
32 
33 

34 
35 
36 



37 
38 
39 
40 
41 
42 
43 



45 
46 
47 
W 
49 
50 
51 



52 

53 
54 
55 

56 

5_ 



IF 
IF 

jl_ 



I»""" THEN BEGIN STRING; GU TO WP 1 END; 

_■"(" THEN 

JJL-II BOOL EAN LltMACJiO _ ) " *!)> THEN W 2 ELSE 

IF 1*4 THEiN WP1 ELSE L3* 

IF I«"[" THEN 

JlQ-TQ_JiLJ_QLEANCUBRACKETt w J% 1)) THEN W2 ELSF i3i 

IF I5"# f ' THEN " 

IF DFINE TH_N BEGIN DFINeUUT; GO TO Ll END ELSE 

on to c?i 



oi^aiooo 

01962000 

JUiJLiflfli). 



COMMENT 



C2* 



THE 

w li 

W2« 



IF 
IF 



j___: 



THEN 
THEN 

THEN 



GO 
GO 



TO 

TO 



m; 

ni; 



i 

% 



MUST BE A DECIMAL POINT. 
EXPONENT. 



begin % possiblt error, 

if dfine then trrdfn*l else c v [9 ] , { 36 j 6 ]'»erx«-1 ; 
end; 



IF NOT SCANCl) THEN 

IF GENERATE ThEN ED I T INGC 1 * 1 ) * GO TO Ll* 

M..XT CHARACTER is A LET TERJ 

IF BU0LEAN(I«-CHECKNEXT(1))"' THtN ~* FORCE TO SCAN," 
BEGIN 8ALA8ALA*IJ GO TO LE E\U; 
UE_J ■fl_lM£iN._GU_ I U 



IF Is2 THEN GO TO L3; 
COMMENT PICK UP THE SUBSCRIPTION IF THE«E IS ANY; 

„LF__jl__T___ — L-TJUS-ID-JIAY be Fnn nnpn ry r 1t 



COMMENT 



COMMENT 



WS1 1 

THIS 

ws"2i' 

PICK 
...WPIL 



IS 



UP 



GO TO IF Cl«-SUBSCRlPT)«e THEN WPi ELSE WP3/ 
A STREAM PROCEDURE CALL STATEMENT; 

.JF._I.?_.1D._IH£N 

GC TQ IF CI*STRMPH0C0UR)*8 THEN WPi ELSE Wp3J 
THE PARTIAL-FIELO IF THERE Is ONE; 

... IF EOF T HEN GO TO L2J 

IF I*NxT,[42$6]*U THEN GO TO N 1 ; 
IF 1*4 THEN 
.IF_ItNJLL J _LL6.i_6lA%" THEN GO TU WP^ Fl SF 



01964000 

01*85000 
_____&_____. 
01987000 
01988000 
- 01 989QQ Q 
01990000 
01991000 

01993000 
01994000 
-JUmOQQ.. 
01996000 
01997000 
01998000 
01999000 
02000000 

02002000 

02003000 

Ji2M____ 

02005000 
02006000 

-QZOflZQfljQ... 
02008000 
02009000 

■ _2q.Qj_J_. . 



WP2I 



COMM ENT 



WP3» 
PICK 



IF I* M S K THEN GO TO WC2; 

IF (I*CHECKNEXTC4&«,»«C36»42»6J))»8 THEN 

BE GIN X THE NEXT TS A « . *' . 

IF NOT SCANC1) THEN 

IF GENERATE THEN EDI T I NGC 1* 1 )/ 

L£„LL*PART lALCl))s a THFh GC TO WCi; 

END ELSE 

IF I"2 THEN 

IF NXT.C36i63* w _" THEN GO TO WC 2; 



02011000 

02012000 
Q?Qi3no n 

02014000 
02015000 

-— azfliftooo. 

02017000 
02018000 

.02019000 

02020000 
02021000 
02022000 



WCi» 



GO TO IF BOOLEAN(I) THEN W2 ELSE IF 1*4 ThEN WSl ELS£02023000 
1*6 THEN WPI ELSE LI* 0202400C 

0202500Q 



IF 



UP THE CONCATENATF-FILLD IF THERE ARE ANYJ 

if EOF Then go to w2/ 

IF NXT.[B6:6J» M « M THEN GO TO WC2; 
IF NXT.CA2t6]»0 THEN GO TQ Nl* 



WC2I 



IF (I«-CHECKNEXT(«H W 4"[36I42-I6J))»8 THEN 
BEGIN 

IF NOT SCAN(l) THEN 



LE* END 
REAL PRHCEDURF 



IF GENERATE THEN COITINQC 1» I > J 

IF (I*C0NCATENATE)«8 THEN GO TO WCU 

EN D* 

GO TO WP3* 

balabala; 

statemfnt; 



02026000 
02027000 
02028000 
02029000 
02030000 
0203100Q 



02032000 
02033000 
02034000 



02035000 

02036000 
COMMFMT .n,,,^ . „,,, _ ___ Q203700O 

THIS PROCEDURE PROCESSES THE AlG 0L LANGUAGE AND STOPS AFTER A 102039000 

1 *EHICQIUNN. UmAQSlM 



l 



f 
i 



9 

10 

11 I 

12 

13 

14 ( 

15 

16 

17 I 

18 

19 

20 | 

21 

22 

23 ( 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 I 

42 

43 

44 { 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 4 

54 

55 

56 4 



• 



b 



# 



2 

3 

4 

I * 

► • 

9 
10 

I " 

12 

13 
I 14 

15 

«" 
I 17 

18 

19 
| 20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 _ 

38 

39 



40 

41 
42 
43 



45 
46 
i 47 
48 
49 
SO 
61 
52 
53 
54 
55 
56 



VALUE Of RESULT* 



01 STOPPED AFTER A SEMlCULUMN, 
II STOPPED Al END-OF-FILt, 
. JJ STOPPED AT -BEGINS 



51 STOPPED AT "END", 
------- j. 



C. PAO 05/01/68 



REAL 
kABEL.. 



BEGIN 



102041000 
502042000 

_...LQ2Q 4 30.0.0. 
102044000 

'--102045000 
,.;0204 6000 



IF BOOLEAN(DEBUGN) 
Lit 



i; 



THEN WfilTE<F0U#DBG,«STATEM , SNXf)7" 
IF NXT.L36I6JS"/" THEN GO TO L2; 
IF BQO L EAN(I»BALABALA(O n THEN. 

BEGIN STATEMENT* I * GO TO LE i**oT~ 
IF NXT.[36l6J/"j" THEN 
J1££1N 



L2: 



LE» END 
BOOLEAN PROCEDURE 



IF DFINE THEN ERRDFN«-1 
IF NOT SCANC1) THEN 
IF GE NERATE THEN FnlTTwfif I , Q y 

end; 

if not scanc1) then 
.xe... g l n f r a t e l. j. hej__lqi -ujuelluuli— 



ELSE CVC93.t36:63*ERX*i; 

suuiq li; 



02047000 
020«8000 
Qa .0 49.QQQ_ 
02050000 
02051000 
02052 000 
02053000 
02054000 
-02055000. 



02056000 

02057000 
Q2056Q.PJL 



02059000 

02060000 

Q.2Q.&1Q.QQ.. 

02062000 

02063000 



STATEMENT; 

SKIPUNTlLfCH); « e v« JU „u 

--.M»|M ^.^.^^m^^^^^ ^. j. t .... ., , . .++++^,+^ + + + . , . ,, », Q20 AAQ.QJ1 

THIS PROCEDURE S K IPS U^TIl THE GIVEN SpEClAL CHARACTER "CH% J02065000 

VALUE OF RESULT: TRUE: "CH" NOT FOUND. S02066000 

-Li — ENQ-O LrXlLE^- .._ _ LOiOAZOOO 



: 

.J... 

i 

t 
.1 



5* 



"BEGIN". 
"END". 



-£U-EJ_CL 



VALUE 
.REM. 

REAL 

LABEL 

Li* 



BEGIN 



ch; 

QhJL 



S02068000 
102069000 

J02O71000 



02072000 
02073000. 



1; 

LLaLLL 



then go 10 le; 



PROCEDURE 



LEI END 



IF <WCHECKNEXT(4*CH|:36Tii2:6] i) = 6 
IF BOOLEAN(I) then 

JB£MJSL-SJO£Uj!alL.taflflLEAN(l); GU TD LE ENDJ 

IF 1/2 THEN GO TO LI* 

IF NXT.C3686]*""" THEN BEGIN STHINGJ GO TO Li END; 

if not scanc1f nxt.[42i 6 3«4 then 1 else qj thfn 
if generate then edi t i ngc 1 , nch ) ; go to hi 
skipuntil; 

buildefine; 



02074000 

02075000 

..0.2076000 



02077000 
02078000 
.Q_2Q.7_9.0-Qa. 



02080000 
02081000 
02082000 



02083000 
02084000 
02085000 



COMMENT •••••••••••#•..••.•.«••.•...• ................... , V.... t ......... 02f 86000 

* THIS PROCEDURE ENTERS A FIRST L EVEL DEFINE DECLARATION INTO THE I02O67QO0 
■ t ^ F J*.!*J.. A5 W ^. t " L * S DFSK-FILE. INSIOE THE DEFINE BODY, EACH " E " WILL »02088000 



ISIART WITH A NEW RECORD AND THE 9TH W RD/ Bl T t 44 ; 1 3 INDICATES THIS « [ •• : 1 8 9000" 
lib QUESTIONABLE TO BE USED AS A PAtUl-PIElD OR CONCATENATE -FIELD. 102090000 
ITH E BIT INDEX WIll BE CHANGED INTO 47 MINUS THAT INDEX IF THE NEXT IS 102091000 



* .*...•„• •._.* .*_*..* «*».#»«.».««.<,.».« • « • « * . . . * 



OWN 
OWN 



BEGIN 

INTEGER IC; 

INTEGER BB; 



I020V2000 

'« 4» C. PAO 04/27/68 •»-•-•— 102093000 

« . . . » « •■» '. .. .»«»».«. | .... » » ...» * » . . » ; 02094000 



02095000 
% CURRENT ADDRESS OF DCIC*], 02096Q00 

._._ % NO. OF BLANKS PROCEEDING BUILDING DEF I NE . 02097000 

OWN INTEGER LST; % THE CHR* C OQE OF THE LAST CHR EDITED. 02098000" 

0«N INTEGER AVCi % NO. QF AVAILABLE CHRS IN DCIC*). 02099000 
STREAM PROCEOURE QFERCF,E); ________________ 02100000 



ft 

2< 
3 
4 
5l 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2; 

2! 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

4: 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56' 

3 



m 



> 



4 
5 
6 
I 

a 

9 
10 

ii 

K 

Pi 

L| 

-i 

is 1 

7J 

Ha] 

19I 

_o| 

|2l| 

P 
24 _ 
25 
26 

27 



28 
29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

•8 

49 

50 

51 



LOCAL 



BEGIN 

nc; 

D l±I± Mi 2JL _LU l x X XX. X X X.X. DEFINES F OLLOW ING n i 

ds«-lit om "; f*di; bs«-u lit"" '»; suf; ds*9 wds; 

0S4-8 LIT"XXXX"; 

c t *. r : c t *. «; t * 3 : ni*i rr urs ni*niiTi n <» * r w u : 



. I T " X X X X " i 

"sl*SI + 2; OULCC NCJ DI+DI+7. CS»CHKj 

D3*-NC CHK/ US«-LlT f ; D^ + 13 LIT" ARE 



02101000 
02102000 
.Q21MQS.Q. 
02104000 
02105000 
-Q2.1Q6Q0Q. 



PRO CEDURE 



ui«-f. q3*-nc chk; us*lit* ; d^ + 13 lit 

end dferj 

EJDJLU 0P*MO; 



ARE IGNORE[)t";02l07000 
02108000 
JX2lSiSSlSiSL 



OMHENT ,,. 

THIS PROCEDURE 
IHL5_LS_AQ-CALLED 



EDITS THE 1ST LEVEL FEFINE DECLARATION INTO DCH*3. 
"RtiTLf. THF FEFINE" . !!JlE!L-I.bLD.LC-ATFS JTHF TYPE OF 



,02110000 
(02111000 
102112000 



EDITING OPERATION 
QP*0» SET "NC" 
0P S _1A TRAN SFER 



Si 

NUMBER OF 8LANKS. 

"NC" NUMBER OF CHARACTERS. 



I02H3000 
10211^000 

.Q2i.5-_.an 



0P*2« 



MAKE 

BOTH 



A ST 
QUOT 



RING WHICH HAS H NC" NUMBER OF CHARACTERS EXCLUDING 

ATIONS. 

_^? - .-_- --.. Am. -C.__P.AJ3.,. 4/ 26/68 „._. -» — 



i 02 116000 
102117000 



VALUE 

REAL - 

BEGI 
STREAM PROCEDURE 
- VALUE. - - - 



OP»nc; 

.-.OE-iJ-XJ _ _ 

I 

edt(T#f#lSt. o»*nc); 

-EU-Og. NCi 



N 



BEGIN 



LOCAL 
LABEL 



i; 

-L1X 



01*1. 



si*t; oi*loc i; os*wds; 
SI4-LQC op; SKIP sb; 

IF SB THFN DS*I. IT " "; Sl±_&l_fc<LL 



102H9000 
02120000 

. 02121000 
02122000 
02123000 

_0 2L24Q0Q 
02125000 
02126000 

M2LZ2JXQQ. 
02128000 
02129000 

.02130000 



IF SO*"!" THEN 

BEGIN X TRANSFER CHARACTERS. 

si »n qs+nc chu; n c*-juj 



02131000 

02132000 

.Q2l330-m 



ci*lst; ds+7 lit«oooo m ; 

SI«-NC* Sl»SI-li 

IF S C>"9" THEN US ♦_!_. I "T !!ir 



IF 
IF 

-END ELSE 



_1L__E 

SCi"0" THEN 0S«-LIT"0 M ELJ>E 

SC=ALPHA THEN DS«-LIT"2" ELSE DS*-uIT m 4 w ; 



IF SC»"Q" THEN 
BEGIN % SET BLANKS, 

NCCOSHIT" ")* SI»L0C 



0213 
0213 
02_U 

0213 
0213 
021 3 



4000 
5000 
600.0 
700 
8000 
___300 



MJ S L____J_____i_ 



0214 
0214 
0214 



0000 
1000 
2000 



IF SCX M 0" THEN 

BEGIN I«-DI' UULOC F. DUDI + 7/ 
iU±li F(2(DS<t32 ljU !_1U__ 



DS«-CHR, 



02143000 
02144000 



END* GO TO LH 
END ELSE 
B EGIN % TRANSFER A STRING, 



02146000 
02147000 
021 48000 



H« 



cs«-liT" m "; si*f; ds«-nc chr; ds*lit"""; 
nc*di; di«-lst; ds*7 lit'oouo"; ds^-lit"*"; 
end; 



END 



real 



si*loc 

edt; 

a; 



nc; di*t* ds*wds; 



02149000 
02150000 
02151000 



02152000 
02153000 
02154000 



40 
41 ( 
42 
43 
44 ( 
45 
46 
47 I 
46 
49 
50 ( 
51 



52 
53 

54 



BOOLEAN B; 
LABEL LE; 
IF D£BUGN «3 T HEN 



02155000 
02156000 
02157000 



56 
56 
.7 



BEGIN WRITE<F0U>DBG# M **EDIT«); 

DUMPABRAY<DCI.O#ll/FOU'i* M DCn*] ,, *DST); 
DUMPABRAYCEV»OM6*FOU>l> w EV.*3t ,, *EST.i 



02158000 
02159000 
Q 2 1 60 QQ Q 



• • 



r~ 



>r 



u 

5< 

| 6 

- 
V 

b' 
■ I 

9 

10 

11 

12 

,3" 

14 

15 

ne 

117 

lis 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

JO 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 



44 
45 



50 
51 
52 
53 
54 



55 
56 



END; 



AML-ES T ^ A Xl. 



WRITE(FOU>DBG#OP#NC>AVC#BB»LST»FSr*lC); 

.-.■.lE-.NCsQ_UbiO _ _ _ 

IF OPXO THEN GO TU LE; 

IF AVC<(A*IF 0P*0 THEN NC ELSE 

- C IF QP*2 THEN NC + 2 F.I SF NC 1 + RE Al^f B-LSTX4 

THEN 

BEGIN % ITEM CAN NOT BE HELD ON THIS CARD. 

_ I£-AVC>Q THEN fc. & 1 ( I C 1 , L S TjlOj.AV.CJJ 

IF AVC20 THEN W«I Tf( OFSK [DX«"DX + 13 » 12# DCIC* 3 ) ; 
IC*DSTi % KESTART WITH A NEW CARD IMAGE. 

_......_ TF BR»0 THFN AvC»72 FLSF 

IF BB+NCS/2 THEN 

BEGIN EDT(1C#0'LST*0*BB); AVC«-72"BB; 
_. - LF B THFN 



02161000 
02162000 

.0216.2000.. 
02164000 
02165000 

-Q2l.6J>Q00 



A«-IF QP*2 THEN NC+2 ELSE NC EnO; 
DCIC93*INV*5[42U2I61; 



BEGIN B«-FALS£; 

end else avc+72j 

.ejsju. ; ; 

if bo0leancevc03 ,[1s13) th£n dc i c 93 . [ 36 j 63 *1 ; 
if a*0 then edtcic,e5t,lst,if b then -op else 

...lF...LMiliAVLC-Ai = ..JJILN _ , 



02167000 

02166000 

O2l6_9_0O0... 

02170000 

02171000 

02.12200.0. 

02173000 

02174000 

02iiaooo. 

021/6000 
02177000 

.021x8000- 



IF OPsO THEN 

BEGIN % END OF THE CARD* GO TO cB[*#*3. 
...■■BflIT.E(DrSKtOX»DX+13»12*OClC«3)J 



.IE DEBUGN.s.3 .THEN 

BEGIN 



DCI[9J«-INV&5LA2S42:63; 

end; 



avc*-i; 



DUMPARRAY(DCI,0#11#F0U#1»"DCIC*J M ,0ST); 
... .JiJUP IRRAlLCU. 1 1 1 * FPU * W!p 1 f * 3 t " t I 53111. 



_E_N_Dj... 



WRlTECF0U»DB6#CP#NC»AvC#BB#LST«FST#lC)i 
WRITECFOU>DBG>"*-«-EDlT M ); 



02179000 
OP#NC);02180000 

02.16.1000 

02162000 
02183000 

Q.21140QQ 

02165000 
02166000 

— -.021-6 7.0.00 

02168000 
02189000 

Q21-9OOO0 



02mooo 

02192000 
02 19 3000... 



LEI END 
REAL PROCEDURE 
COMMENT 
T 

S VALUE OF RESULT? 

L °J NOT MATCH8 NOTHING ElSE S_C_ANNJE£# "NXr* J_S _A 

end -"of -file. ""'"'"""' 

not match* the "nxt" is scanned. 

not match; the "nxt" is processed. (scanning error) 



edit; 

CHECKNXTCNEXTJi 

THIS PROCEDURE CHECKS THE "NXT" AGAINST THE GIVEN "NEXT". : 

i 

: 



CHR QH DIGIT. 



1* 
2» 

4J 



02194000 
02195000 
01196000 
62l9 7b0d 

02198000 
021V9000 



MATCHES, 



02200000 
02201000 
02202000 



J. C. PAD 



04/26/68 



02203000 
02204000 
022G5000 



VALUE 
REAL 



next; 
next; 



LABEL 



BEGIN 



02206000 
02207000 
02208000 



L1»L2>|_E; 02209000 

IF EOF THEN BEGIN CHECKNXTM; GO TO LE END; 02210000 

IF NXT«NEXT THEN BEGIN CHECKNXT+6; GO TO LE END; 022UQQQ 



COMMENT CHECK THE 



IF NXT.[|6I63» M X" THEN 
BEGIN PERCENT; GO TO LI END; 
IF NXT.C42t63'2 THEN GO TO LEJ 



"NXT" MAY BE A COMMENT; 

IF SCAN(5) THEN BEGIN CHECKNXT*4; 

IF NCR/7 THEN GO TO L2; 



02212000 
02213000 
02214000 



GO TO LE END; 



IF EVC03.Ii8l303x"COMME M THEN GO TO L2J 

EV[t3«- n NT M ; 

IF C0MPAREA(EVClJ'EVC23*0/6*23^0 THEN 



02215000 
02216000 
_Q2217Q0.Q_ 



02218000 

02219000 
02220000 



w 



rt 



7 

8 I 

9 

10 

,1 I 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

73 i 

24 



28 

29 I 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 < 



42 



44 1 

45 



47 ' 
48 



53 ' 



55 






U25 BEGIN CHECKNXT*.; GO TO LE ENU; 02221000 

CCMMNT; GO TO LI* * IT IS COMMENT* RE-ChECK, 02222000 

-kLLIf BOOLEAN CDEBUGN) THEM W RI TE (FO.*DBGy"CH M Xj "j NAT* NEXT ) E ND; COMM ENT Qj_2 2 3 Q 



checknxt; 
skipdefine; 



LEJ END 

pruceoure 

_.Q0 M [MEM T- • 1X.I. 1 LUAlXXtAlJa 

: THIS PROCEDURE S«IPS OnTIL AFTEN 
JDEFINES AND "*"S ARE RECOGNIZED. 



I H I I 111 t_t_t_L..»-_..__t.--_L._. UJl ._ . »• »«•, 



• 



6 
7 

!a 

9 

H) 

V, 

!,.-! 

13' 

14 1 
b 

r 
Idi 

17' 

la: 

il 3 1 
'21)1 

|2 V 

122 



s 



*". THt COMMENTS* STRINGS* 
J, C. PAD. Q4/25/6H 



02224000 
02225000 

J02227000 

$02228000 
>0222900fl.. 









24 
25 
26 
27 
28 
29 
30 

3ir 

32 

B3 

M 

35 

36 

37 " 

38 

39 

40 

41 

12 

43 ~ 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

5' 



BEGIN 



-BE A] 

LABEL 



ItUNTLi 



IF BOOLEAN(DEBUGN) 



HI 



Ll*L2*LEi 

THEN WRlTE(FOU*D_G,"SKIPDF M *NXT); 

UNTL»ft& w « w t36U2lo]; __ 



;02230000 

02231000 

-0223200-Q 



COMMENT CHECK IF 



IF (I«-CH£CKNXTCUNTd )*6 THEN 
BEGIN % END OF THE DEFINE, 

ie_.nqi._sj: . amu_i__ej_ 

IF GENERATE THEN ED I TlNGC 1 > 1 ) ; 

GO TO le'; 
EAC1 ........ ..... ... _ .._... ,_ 

IF 1*4 THEN GO TO Li; 

IF 8Q0LEANU) THEN GO TO LE* 
lJLJ[J_J3__TJi___ 

IF NXT.[36:6]=""" THEN 

BEGIN STRING; GO TO LI END ELSE 

IF S^ANlIF_Ml„iiA_i 6.1*4 THEN 1 £j_S_: 0) lH£N Gfl T_t 

THERE IS ANY DEFINE INSIDE THIS DEFINE; 

IF NCR*6 THEN 
L£ EVt03. Cl8l303* "DEFlN" THEN 

BEGIN EVC2]«-"E"> 

IF C0MPAREACEVU],EVC2],0f7>n»0 THEN 
BIfilN 



02233000 
02234000 

-.._ JL2_L154_Q_L 

02236000 
02237000 

__2_LlJ___Q_L 

02239000 
02240000 

- Q_L__UilQfl- 

02242000 
02243000 

J22__A-HLQJX 

02245000 
02246000 

.Ui.02.2_4 7.Q00:., 

02248000 

02249000 

Q22_QQQ__ 



L2I 



IF GENERATE Th£N EDI TlNGC 1 #6 ); 

skipdefine; 

-If—Li* C H E C K N X T__4 j_^,___1.3. .61.__tL6._l- J.»6„ JjiEJ, 

BEGIN 

IF NOT SCANC1) THEN 
IF GENERATE THEN EDI T I _G ( 1,1); GO TO Li; 



02251000 

022-2000 

..022530--0. 



eno; 

IF BOOLEANCU THEN GO 
J F j_j4 THEN GU TO L2 J 



02254000 
02255000 
_Q__2___.Q__QL. 
02257000 
02258000 
J___259MQ_ 



ro le; 



IF 1=0 ThEN 
IF SCANCIF NXT 
-0 TQ 12/ 



02260000 
02261000 
02262 000 



C«2l6Js4 THEN l ELSE 0) THEN 



IF 
GO 

end; 



GENERATE 
TO L2i 



THEN EDITINGC WNCRH 



.!_£_ END_ 



REAi, PROCEDURE 
comm ent ••*#•• • • . • • 

-i— THIS PROCEDURE 



end; 

if generate 

skipdefin e; 



THEN EDITlNG(l*NCR>; GQ TO Li; 



02263000 
02264000 



02266000 
02267000 
o?26Bnnn 
02269000 
02270000 
227 1Q O Q 



GHGDFN47; 02272000 

•••••* » ;.» • • •*,•«••*,•••«•.«•*•••'••. •••,••.••«,«• •.#••,0227 3000 
CHAN GES THE VALUE INSIDE A PARTIAL»F IELO OR A tQ2274_00 



:CONCATENATE-FIELD INTO 47 MINUS THAT VALUE, THIS ChGE IS MADE* IF AND»02275000 

'ONLY IF THE NEXT IS A **** ONLY BE CALLED WHEN DFlNE*FALSE **** :0227O000 

J VALUE OF RFSULTI iQ_277np q 



01 NOT CHANGEO AND NOTHING PROCESSED. 

II ERROR CAUSES THE ENTIRE DEFINE IGNORED. 

21 NOT CHAMGfn BUT SnMFTHlMG HRnCESSrn. 



102278000 
IO227VO00 
102280000, 



T* 



o 
Q 



4 
5 
6 

I 7 

i : - 

10 

11 

12 
13 
14 

15 
16 
17 
18 
1'J 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

16 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 



49 
50 
51 
52 
53 
54 
55 
56 



41 NOT CHANGED BUT MORE 
6: CHANGEO, 



THaN UNE ITEM PROCESSED. 
_-.---.*-_-- J_».„i..._P_A_Q ._.. . JiAZ25ZAfl 



REAL 
LABEL 



BEGIN 



l±JlM. 



L1,L2>L3,L4»LE; 
IF BOOLEAN(DEBUGN) THEN WRITE(f QU»0du,"CHNG47"*NXT); 
COMMENT, SCANJOR THE ITEM SUPPO S EDLY TO BE C HA Nji E 0_ A N D 



Ll» 



IF BUQLEANCUCHECKNXTCU) THEN 
BEGIN CHGDFN47*i; GO TO LE EnUJ 

IF I»4 T HEN GO T O L1J 

IF 1=0 THEN 
BEGIN 
IE N xT ..42»6 j=4 



THE N Jill m..kL ELSE 



IF SCANCO) 
ENO ELSE 

liIgLJ'2i 11 
IF NCR = 6 THEN 
IF EVC03 .C18I 303 

..fi£fiIN.,_£YI2i* 



THEN GO TO Li* 

MS_A_Jlflfill_JUJiI_5.tANli£iiA 
OEF'IN" THEN 



iZl, 



IF COMPAREACEVCi]>EVt23^0»7»n*0 THEN 
BEGIN 
IF GENERATE THEN ED I T I NG C 1 , NCR U GQ 



.COMMENT CHECK THE 



end; 
end; 



.CjjAJLfiJLJii ILL _flL..-HA&fc_ JLe_LI_LSLjA 



LU- 



IF NXT,l42J63sQ THEN 
BEGIN CHGDFN47*2; 
EOIT(l.NCR). 



IF 
GO 
JLhUL. 



GENERATE 
TO le; 



THLN EDITINGC 1#NCR); 



502281000 
102282000 
I 022 8 J 000 
#02284000 

02285000 

022 8 6 aO 

02287000 

02288000 

S_EE__WHAT_ IJ IS* Q2.289QQQ 

02290000 
02291000 

522 g 2.0J2 0. 

022SI3000 
02294000 

-Q2.29io.aa 

02296000 
02297000 
02-2.9.8000 
02299000 
02300000 
.021.01000 

02302000 
02303000 

..Q2J.MJ3.Q_a. 
02305000 
02306000 

02307.00.0 

02308000 
02309000 
0231X100-3- 



JJLJJJ. 



"1!!1 



02311000 

02312000 

_Q2.3.UQQQ.. 



COMMENT 



IF NXT,C42I63*4 ThEN 02314000 

IF NXT.C36|639"$" THEN GO TO L4 ELSE 02315000 

IF NXT.[36t6]X"*" THEN GO TO L2J _'__ A23.1 60*50 

THE NEXT ITEM IS NOT " * % BUT THE »' : » MAy CUME AFTER "X"S OR 02317000 
COMMENTS, AT THIS POINT START THE GENERATING PROCESS ANYWAY. 02316000 
NOTES T_HE_" *_!_• S_ OR COMMENTS w ILL BE M OVED INTO THE FRONT OF TH E 02319000 
ITEM TO BE CHANGED, REGARDLESS THE CHANGE" IS MADE OR NOT; ~02320000 
IF NOT GENERATE THEN STARTGEn; 02321000 

T RNSFCHR(AC03»EVCO3*Q»3»J»NCR); 02322000 



IF (K*cHECKNXT(4<. ,, J"[36J42:63 ))*6 THEN 
BEGIN TKrtSFCHB(EvCOJ»A[OJ»3#0»NCR*J>; GO 
IF BO. O LEAN CK ) THL N G (J TO UJ 



TO L4 eno; 



02323000 
02324000 
232 5000 



IF K»4 THEN * 2 ITEMS SWITCHED* IT IS BAD ANY WAYt 02326000 

BEGIN TRNSFCHRCEVC03»AC03»3*0»J)* 02327000 

IF N OT G ENE RA T E THEN STA RT GEN J EDIT I NG( 1 , j) i 02328000 



GQ 

end; 

IF K»Q 



to li; 

THE N 



02329000 
02330000 
0233 100 



BEGIN TRNSFCHR(EV[0J>AC0]»3#Q'NCR«-J); GO TO L2 ENO* 02332000 
TRNSFCHR(BC03#EVC03*0*3#NCR); 02333000 

TRN'SFCHRCEy.0 3»ACQl»3>0>g); . 02330000 



EDlTUtJjJ 

IF NOT GENERATE THEN STARTGEN; 

TRNSFCHI R C E V [ J » ti [ 3 * 3 * » N C R ) ; 



EDITINGCl'J); 



L4* 



CHGDFN47*4j 
£DITC1#NCR); 
IF I»2 THEN 



GO TU L3i 



02335000 
02336000 
02337000 
023 38000 
02339000 
02340000 



47 
48 
49 

50 ' 

51 

52 

53* 

54 

55 

56 '■ 

5?, 



6 
7 
B 

I 9 - 
|iO 

II 

i i3 T 

ia| 

19 

;:oi 
ill 

I"" 

23 

26 

27 
28 

29 
30 
31 
32 

B3 



7 
|39 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



BEGIN i*£Vt03; EVCO^Ofc 
IF NOT GENERATE THEN ST 

_ ..EJLLLLNjLLLg 3 ) ; _Ml&l±±j. 

END ELSE F0URTY7<0); 

IF SCANCl) THEN GO TO Hi 
AQlUlilll 



artgen; 

EJU I JJiai.iiii.tBJJ... 



Q2J41000 
02342000 
02343000 



02344000 
02345000 
Q_2J46QOJ2 



IE: END 



IF GENERATE 
CHGDFN47*-6i 
CHGDFN47; 



THEN EDITINGCW l)i 



02347000 
02346000 

jiziAioojj. 



BOOLEAN PROCEDURE BRCKT; 02350000 

COMMENT . , 02351000 

A__ T H I S _PR CEDUR E CHECKS THE QEFINE-STRING _ S T A K T I_N_ G WITH A "[». IF tQ23 5 2000 
JTHE "[" IS A PARTIAL-FIELD OR cONCATEN aTe-KIELO' DC I [9] . [44 : 1 ] «• 1 . : 
J VALUE OF RESULT* TRUE: EHHORS CAO 



i ATE-K 

iSE TH 
J. 



Ifc'LQ' OClC93,U«*l]*i, 
E DEI" INE BE IGNORED. 
C. PAU 04/25/66 ---' 



02353000 
02354000 
02355000 



; 



IF 



BEGIN 
REAL 
LABEL 
BOOLEANCDEBUGN) 



.L».o_*lB si ;..._ _ 

L1,L3»L34#L4,L5>lI; 
THEN WRlTECFOU*OBG,"pKCKD 
IX ... A yC_>XL J MULS 9J ILQi A y„c J 
IF DFINE THEN DCH93, C361 
BST«-OX + l; 
-IF S C AN C l) IhtH 



F">nXT); 

I - k. JtfAJi 15 ... A. JsUEJi _C-ABJL-AX „t. j 

93*CVC91.C36I9] ELS£ 



LI' 



GO TO LE ENU; 
Villi. 



L3« 



L34J 



BEGIN BRCKT«-T«UE; 

EDIT(1#1); 

...I£_.fi£j^£5 J ft.lE_.J_d£il...t.DI. 
IF DFINE THEN GO TO 
IF CI«-CHGDFN47)so TH 
GO TO TF BOOLEANd 
IF B00LEANCI<-CHGUFN4 

IF 1=6 THEM 

I F '(D»n + l)S2 THEN GO TO L3 EL ^E 




1 EL^E 
L1_£J 

EN GU Tq LW 



02356000 
02357000 
02356000 
02359000 
02360000 

02J6.10XLQ 
02362000 

02363000 

Q2364QQ Q 
02365000 
02366000 
0216.70-00 

02368000 
02369000 

Q2370QXUX- 



02371000 

02372000 
-O-ZlHOJia. 



FLAG THE ERROR, 
CH93,C36t63«-i; 



L4J 



BEGIN X 
ERROR; 

.£fcCi 

IF 1=2 THEN 
BEGIN 

IF EOF THE N GO TO Ll> 

IF NXT.C36J63* n 3" THEN 
BEGIN 
IF SCAN(l) THEN GO TO 



D«-D*lt39M2l63| GO TO L5; 



02374000 
02375000 
flg376Q00 



02377000 

02378000 

..02iZ£Q_OJL 



.LI I 



02380000 
02361000 
02362000 



_JL5«.. 



edit(i#d; 

if generate then edit 

. IF BST>UX THEN DCIC 9 3 



BEGIN REAO(0FSKtBST3 

AC93,C36.I93«-D; WRI 

ENO; GO TQ LE) 



ing(1*d; 

t [36?9J<-D , US E 



02383000 
02384000 
02385QQ0, 



*12»AC*3)J 
TECDFSKtBST3»12#A[*3); 



02386000 
02367000 
02368000 



end; 

IF NXT,t42»63=0 THEN GO 
IF (I»CHECKNEXTC4&»'3"[3 



IF InU THEN GO TO Hi 
IF BOOLEAN(I) THEN 60 
IF I»2 THEN 



TO L34; 
6?4ci63))s6 THEN GO TO L«; 



02389000 
02390000 
02391O0Q 



TO Lli 



02392000 
02393000 
Q2 394 Q0 Q 



BEGIN E0IT(1»NCR). 

IF GENERATE ThEN 
end; GO TO L34> 



EDITING(1#N0R); 



02395000 
02396000 
02 397000 



BOO LEAN 



LEI END 
PROCEDURE 



END ELSE 

brckt; 

OTN P Q OYJ 



GO TO L34; 



02398000 
02399000 
02400QQO 



• r 



W- 






10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 
33 
34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 



48 
49 
50 
51 
52 
S3 



54 

55 



56 



COMMENT t 

J THIS PROCEDURE BUILO THE BODY OF A DEFINE IN TO DFSK-FILE, IF 
..U.S._MflI._DUBlNA_Iii£-EXFeUTTUN O F A DLFlNF THF P Afr T T A|„ -K I f Lp Ahp The 

»concatenate*field will be changed. 

i value of result* true* error causes the entire define ignored. 

J - - _ «-„-,,, j. r . HA[J Qit/PS/6fl -— .— 



IT 



,.02401000 
:024Q2000 

102404000 

102405000 

'IQ?4Q6nno 



t 



BEGIN 



fl£AL_ 

LABEL 
IF BOOLEAN(DEBUGN) 

L.1.A _ 



JuAL 



JO24O7QO0 
02406000 
..Ji23.Q9QQSL 



L1*L2#L3*L34*L4*LE; 

THEN WRITE(F0U#DBG,«DFBUDY"*NXT); 
IF EOF THEN GO TO L3; 



IF (I*NXT.C42»6J J*4 THEN 
BEGIN 
IF J*-NKT»[36t6i« w r w THEN 



L2« 

LiJ. 



GO TO IF BRCKT 
IF J»«»" THEN 

BFG I N-SJiUNAl-EiL. 

IF J="* M THEN 
BEGIN PERCENT* til) 

....EA.0.1 

IF SCANC1F 1*2 THEN 
BEGIN SKlPDEFINEi 

pPNRnny»T RnE; Gn 



THEN L2 ELSE Li; 

(gtNCRXL-filLJin. 

TO Ll ENL> 



.END J - 



5 ELSE IF 
1.0—lXJ 



end; 

IF 1*2 THEN 
IF NCRaZ-lHEM 



THEN 



IF EVC0],C^8^3O]*•'C0MME , ' 
BEGIN EVC23«- ,, NT"; 
If. C QMP ARF A ( E V f 1 ] , ¥ V f ? 3 . ,. ft i ? 3 



BEGIN COMMNT; CiO TU Ll END> 
END* 
EDITt \ ,NCR)/ 



02410000 

02411000 

02412000 

024U000 
02414000 

0241500a. 

02416000 
024J7000 

2 < *l ft Q00 

02419000 
02420000 

02421000 

1*4 THEN 1 ELSE 0) THEN02422000 

02423000 

. 0.2-42-4.0-0*1 

02425000 
02426000 

__ _ .024.2X00-0 

02426000 
02429000 
«Q THEN - 02430000. 



IF GENERATE THEN EDITING! WNCR ) ; 
IF 1*4 THEN 

IF Js"l»* THEN GO TQ LE ELSF 

IF j» M "" THEN 

BEGIN ERROR; DCll*3.C36l6]*i; C I [9 ] . [ 36 I 6] «-l 

IF 1 *2 THEN G U-I.9 Ll J 

IF NCR/6 THEN GO TO Lli 

IF EVtOI.ClSljOJ^DEFlN" THEN GO TQ Hi 

EVt23» w E w J 



02431000 

02*32000 

■ 02433QCO3.. 



eno; 



COMMENT 



IF C0MPAREACEVC1 J'EV[2]#0»7»1)X0 THEN GO TO ll; 
PROCESSES THE DEFINES INSIDE THIS QEFInE; 
L34» IF B00LEANCI»CH£C*NXT(1)) THEN GO TQ L3; 



02434000 
02435000 
..G24.36QCJ3... 
02437000 
02438000 

02439000 
02440000 
02441000 

02442000 



02443000 

02444000 
02445000 



L4» 



IF 1/2 THEN » DEFINE ID DOESNT START WITH A LETTER. Q24460QQ 
BEGIN SKlPDEFINEi 0244?000 

GO TO IF EOF THEN L3 ELSE : 02446000 



IF 
IF 

end; 



NXT,[36I6]»"J" THEN L2 E^SE 
I*CHECKNXT(4(i«;"C36:42»6 j)=6 



THEN L2 ELSE L4i 



C0IT(1#NCR); 

IF GENERATE THEN EDI Tl NG C 1#NCK )J 

IF EOF THEN GQ TQ L3) , 



02449000 
02450000 
02451000 



IF NXT.C36J6]*"*" THEN 
BEGIN 

IF (I»CHECKNXT(4&t»«"[36l42t6]))*Q THEN 



02*52000 
02453000 
02454000 



02455000 
02456000 
02457Q00 



lit NXT,C36t63»"C w THEN 024,58000 

BEGIN 02459000 

IF OFINE THEN ERRQFN+1 EL&E CV C93 , C36 1 63»ERX»l J 02460000 



"¥""".• 



13 
■14 

"t 

"i 

■■is; 

20 

ai 

22 
23 
24 
25 
26 

" - 
28 

29 

30 
31 
32 
33 
34 
35 
36 

:" 

39 



LFX«"NFx; I«-B«ACK£T(")"»l) 

IF 1=4 THEN 

BEGl N E vC03»-0&"( )" C18:36 



; lfx*i; 

11211 EDITJ-LljLLL 



02«61000 

024 62000 

.Q2M3.Q0JL 



IF EOF THEN GO TO L3; 

I*IF NXT.C36l63*"s M THEN 6 ELSE 

CH£CKNXr(4&"«"C36U 2 J 6 H 



1 



02464000 
02465000 
02466 000 



£ND> 

end; 

TF BGOI EANCl) THEN GO 10 L JJ 



02407000 

02468000 

J124.69QQJL 



IF 1=2 THEN 
BEGIN 
I F GFNFRATF. THFn EDlTl h( 

end; 

if 1x6 then go to l.4; 

fnd; 



02470000 
02471000 

1720011- 
02473000 
02474000 

-OiAzaaoc- 



IF SCAN(l) THEN GU TO L4; 

iditci#d; 

J.E-6£N£fiAI£- JJiEN- EDI T lAfllULU. 

IF DFNBQDY THEN CO TO L4/ 

IF EOF THEN GU TU lli 
.W,-J±tLXl+t3bA4J-ll.L''^lhLbL - _ 

IF J*"; M THEN 

BEGIN 
1E_I 

GO to Li; 

IF 1 = 2 THEN 
REALM 



:h£r.KNXl (tt«,»t 36J4P I6 3)) THEN-- 



IF GENERATE THEN EU IT INGC i#NCR> J GO TO L4; 

end; 

I F I»0 TH £N 



02476000 

02477000 
02478000 

02479000 
02480000 
..02-4440-00- 
02482000 
02483000 
.02484000. 

02485000 
02486000 

..0.2.4.8700.0 
02488000 
02489000 

.._0. 249 Q.OOO.. 



IF 
IF 

en d; 



NXT.[36J6]X";'« THEN 
1/6 THEN GO TO L.4; 



GO TO L4 ELSE 



IF SCANC1) THEN GO TO L2; 

E0IT(1,1); 

IF GENERA TE THEN EDITlNGCU I )J 



02491000 
02492000 
Q?49 30.OQ. 



LE» 
RE^JL 
LABEL 



END 



gc to if j="; m then li else l34; 

dfkbudy; 

i»j» infoinx *dfst; 



WC,H1#H12>H14>H2»He; 
IF BOOLEANCOEBUGN) THEN WRlTEcFQU#0bG,*'8ULDFN w *NXT»DX); 
C OMMENT IN ITIALIZING THE EDIT "PROCEDURE IN THIS BLOCK* 



02494000 
02495000 
.C£4£6_OQO.. 
02497000 
02498000 
0249 9Q0Q 

02500000 
02501000 
02502000 



41 
42 
43 
44 
45 
46 
47 
«8 
49 
50 
5) 
52 
53 
54 
55 
56 



COMMEN T 



8B<-2; % BLANKS IN THE FRONT 

DFST*-DX; AVC*-i; DCI L9]«-INV<i 

SCAN FOR THE DEFINE IDENTIFIER; 



F EACH CARD* 
5C42:42«6]; 



02503000 

02504000 

-Q 25q5Q 0Q, 



HQJ 

JUL 



IF 8QQLEANU«-CHECKNXTU)} THEN 
IF 1X2 THEN * DEFINE ID DOSNT 
BEGIN DX + DFST; 



GC TO hi; 

START WITH A LETTER. 



02506000 
02507000 
0^508000 



IF INFOINXsO ThtN 
BEGIN INF[0]«""6DEFIN M ; 
DFFR(FOU(03*INF[Q]); 



lNF"llJ«"0&"t ,, tl*43»5]; 



02509000 
02510000 
025V1Q00. 



47 ' 

48 

49 

50 { 

51 

52 

53 i 

54 

55 

J 



END ELSE 02512000 

DFERCFeU<Q)*INfO[lNFQlNX,,C35J5]#lNFQINX,t4Q*8Jn; OgSUOOO 
RELEASECFOU). . Q2 S . 4Q QQ 



H12I 



IF EOF THEN GO TQ HE ELSE 

IF ECF THEN GO TO HE; 

IF NXT.C3686]*";* THFN 



skipdefine; 



02515000 
02516000 
0?5l7nOO 



H14I 



BEGIN 

IF NOT SCANCD THEN 

IF GFNFRATE THEN EOITlMG.l.l.l GO TQ , HE J 



02518000 
02519000 
02520000 



• • 



V- 



'2 

3 

*l 
5 

61 

7 

(i 
J9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
IS 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 

37 ~ 
38 
39 
40 
41 
42 
43 



JA 



ENU ELSE 
IF ChECKNX 

ILL 



(id Tb 

T(A&";"t36 J42J6J )=b THEN H14 ELSE H12/ 



COMMENT BUILD I 

in lam 



IF 
N INF 



GENERATE 
C*3 THE EN 

___OL-XH£_ 



THEN EOITlNGCUNCK 
THY OF THIS DEFINE 
PKnc Eb s is chmpi n 



, INFt*] WILL BE MOVE 
£_.. iU-Xk NO ERROR;..— 



02521000 

02522000 
..025230.00 

02524000 
002525000 

02526.000. 



IN 

IF 

Ji£ 



Ftl3*EV[03 

NCR>5 THE 

GJJ_ 



&NCR 1 1 s 31 : 17 J ; 

N 



_EU 



INFC03**<N 
TRNSFWDSU 
n ELSF INF 



cr+ioj oiv a; * A 

NF[2J»EVC1]#-INFC0 
C0 1»-U 



DDITIONAL INFO REL InX 

j-d; 



COMMENT PICK UP 



the "»"# after which, yh.e define bqdy starts/ 
if eof then go tc hi; 

IF NXT ,[36>6]-"s" THEN GO .ULJH2J 

IF Cl«-CHECKNxT(4<i M a"[36*a2»6J ))»6 THEN tfQ TO H2> 
IF 1*0 THEN 

I F NXT T C26t6 ]»"C w THEN 



02527000 

02528000 

....Q25290.Q.Q 

,02530000 

02531000 

.JJ.25.120.no 



BE 



GIN 

IF DFINE 

JLOLiMXL 



'HEN ERRDFN*1 ELSE 
..1±BRACKEJ.(JL1^JJ.J. 



CV[93 ,[36»63«-ERX*i; 
lfx»i; 



IF 1=4 THEN 

IF (I*CHECKNXT(4& M * w C36l42t6 

BEGlN_E.V-C Q3fU .LU n; EDIUQi. 



3))*6 THEN 

0? ; A fl TQ H2_£NQj_ 



02533000 
02534000 

02536000 
02537000 
.0251800.0 
02539000 
02540000 
0254.1.00.0 
02542000 
02543000 
.02544.00.0 



COMMENT START T( 

.___,. H2J 



end; 

IF 1*2 THEN 
— X£ GENERATE .THEN fcQIXTNGC UACfiJU- 

GO TO hi; 
BUILD THE DEF 
IF NUT SckKt 



INe BOoY INTO DFSK-FILE^ 
1) THEN 



02545000 
02546000 
.....Q2.5A.7.000 
02548000 
02549000 

__Q25.50.OO0.. 



COMMENT COMPLETE 



IF GENERATE THEN ED I T ING ( 1, 1 J > 02551000 

INFC1-INFC0J3*DX+1; % STORE OFSk-INOEX QF FEFINE. 02552000 
I F DFNBOOY THEN GQ TO Hi; , 02553 000 



LDING THIS 
AVC>0 THE 

fQinxmnfQ 



if debugn-3 then 

BEGIN 

DUMPARRAY( 
FOR 1*0 ST 

begin_read 

"enuT 

comment pick up 



BUI 
IF 

IN 

DFST«-DX; 



DEFINE* ENTER IT 
N E0ITC0»AVC); 
ENT RY (J N_F_» 2_"lN f_C Q i 



TO infoc***]; 

i; 



02554000 
02555000 
0^556000 

02557000 
O255BO00 

02559000 



INFOtO»*3»0/255#FOU#l# M lNFO«0 M *HFX); 02560000 

EP 1 UNTIL DX DO 02561000 

(DrSK[I3M2jA[«3);0uMPAftRAYC A ,Q,U>FQU>i' M 0PS * l H »I)EN ;02562000 



THE SEMICDLUMN OR THE COMMA AF jLH THIS DEFINE; 
IF J«-NXT.[36I63X">" THEN 



02563000 
02564000 
02565000 



45 
46 
47 
48 



IF J* n »» THEN 
BEGIN 

IF B0QLEAN(I»CHECKNXTC4&";'U36t42t63)) THEN 



02566000 
02567000 
02568000 



GO T 
IF I 
BEQI 



o hi; 

mi THEN 
H 



02569000 
02570000 
O257 1QQ 0_ 



49 
50 



51 
52 
53 
54 



IF 

end; 

TF I 



GENERATE THEN EDIT lNG< 1#NCR ); GO TO H1J 
'0 THEN , 



025/2000 
02573000 
2574QQQ 



55 
56 



begi 

IF I 

end ; 



N IF J«-NXT.l36l6]X",» THEN GO TO HI END ELSE 
*6 THEN J*hXT„[36!6] ELSE GQ TO Hi; 



02575000 
02576000 
02577Q0Q 



IF NOT SCAN(l) THEN 

IF GENERATE THEN EDITINGCUU* 

IF J/"J" THEN GO TQ HO; __ 



02578000 
02579000 
02580000 



n 



builuefine; 

DONTCARECI )i 




HE! END 
REAL PROCEDURE 
CJjMM-ENT -..«...#..#.. ««*•»« ♦.-#..„«..»-»_»..♦..»..«.. 
» THIS PROCEDURE ENTERS 
IAN IDENTIFIER. IF "I* IS 
»WHATFVER IS TN EV[»3 WILL 
t VALUE OF RESULT' 01 

... . _ 2J_- 



A "DONT 
AN EVEN 



'CARE" INTO 
NUMBER* NO 



INFQ_*,*3 IF THE NEXT 
SCAN IS PERFORMED AND 



IS 



RF EMX FR ED TM JD-ON£flt*^*-U. 



NtXT IS A ABSOLUTE RESERVED kORD. 
NEXT IS END-GF-FILE. 
. N EXT I S A niGlT Oft SPECIAL CHARACTER, 



02581000 

02582000 

0-25-8-1-000... 

02584000 

02585000 

025860013 

02587000 

02588000 
■0258900.0.. 



3! NEXT IS "BEGIN", 

5* NEXT IS "END'S 

B. NEXT IS ENTERED AS 



A_-"J3.Q NT ^CARE'S 



02590000 
02591000 

Qa5.£2^.ao. 



J. C. PAO 05/15/68 



VJ.L.UE.. 
REAL 



02593000 

025VA000 

-02-595000. 



If 



BEGIN 



.18 

119 
'.10 

22 
|23 
24 

f> 6 ~ 

86 

27 _ 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 



ARRAY 
LABEL 



Lll 



.AI.ClL9.1J_ 



li,l2>le; 

if boolean(i) then 

be gi n lfx+nfx/ i+checknextc1); 

if boolean(i) thin 

BEGIN OONTCARE*Ii GO TO lE END; 
..liL._l.s2-.THFN fiQ TQ_L.11 __ 



L2» 



lEj end 

REAl, PROCEDURE 

COMMENT ,♦.. 

: THIS PROCEDURE 

1IPEN.TIF.I.E.R ( .LblZ&l 

l VALUE OF RESUL 



if ifxsrfx then gu to hi 

aco3*o; % mark a* a reserved hokd — "qont-care" 

A[13«-EV[QUNCW[Hi l » 1 7 3 ; _ 

IF NCR<5 THEN 1*0 ELSE 
TRNSFWDSCAC2]»EVll3fI*CNCR+2}.t39»6]); 

I»INFQF.NTRYCA M*2) J _ 

d0ntcare*8j 
oqntcare; 

PCLAn T YPEUY )} 



02596000 
02597000 

025-9-8-00-0. 

02599000 
02600000 

±1. X ±1 J_:j_D..Jj_J-J_. fiUD_.JL.2i 0-2-6 01 000 

02602000 
02603000 

. _j_.2__oiLaaa. 

02605000 
02606000 

Q26.C.7Q.Q.0 

02608000 

02609000 

..0_261QQjQjQ... 



02611000 

02612000 
261 3 Q QJL 



EnTE 

_U-IQ 
Tt 



rs an arqay identifier c n AY"si) 

INFO C***]* 



OR A SIMPLE 



02614000 
02615000 

Q__61_6_0Q_Q. 



* 
t 

i . 



O: PROCESSED UNTIL AFTER THE SEMlCOLUMN, 
l: STOPPED AT Ei\D-OF -FlLE f 

3t STOPPED AT " BEGIN % 

5: STOPPED AT "END". 

J. C. PAO 



04/30/68 



»-t._-.«_»...t-iL__f...«.J..-Lt._l--.JL.t inm 



VALUE 
REAL 



ay; 

ay; 



.....».«»»»»«». »»«.«»««»i«.»««»»t»»««».»»«.i»»/ 



02617000 

02618000 

0261__0J3.(1.. 

02620000 

02621000 

02622000 



B E G I N 



02623000 
02624000 
0-2.6 25Q0JL 



IF 



REAL 
LABEL 
BOOLEANCDEBU 



GN_1 



Li*L2,L3,L4»L5*LX»LXl*LE; 

THFN WrITECFQUjOBG,"DCTYPE">NXT*/.Y ); 



46 

47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
P7 



COMMENT ENTER THE 



IDENTIFIER INTO lNFQC***j; 

IF BUOLEAN(AY) THEN 

BEGIN A.O]*0U[H46;23; GO 



TU L3 END ELSE 



02626000 
02627000 

02629000 

02630000 
02631000 



ll» 



AC03*0&3Cl«46«23i 
AC13*EVC0]«NCRC1«3H17]; 
IF NC RS 5 T HEN 1*0 ELSE 



02*32000 

02633000 

.02634000 



.TRNSFHOSCA[2 3»EVll3»I«-tNCR*2)tC39*6 3}* 
I*INF0ENTRYCA»I+2); 
COM ME NT— LO O KI NG FDR T H E N EX T I DENTI F IER IF -TH E RE A NY; 



02635000 
02636000 
02037000 



L2I 



IF U*CMECKNEXT<4& M * H C36»42l6im«8 THEN 
BEGIN X LOOKING FOR THE NEXT IDENTIFIER. 
IF NflT SCANC1) THEN ._ 



02638000 
02639000 
02640000 



o 

13 i 



!> 

31 
4 I 
5 
6 
■A 
8 
|9 
[lfl 
11 
12 
13 
14 
15 
16 
17 
18 

ia 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
50 
51 



L3: 



IF GENERATE THEN EDIT INGC 1* 1 >i 

LTX + NFXJ I*CHtCKNEXT<l); LFX«-U 

_.fiH Jil_l£ a U L LAMJJ-TJ1E.N.-LX-.EL&E-- 

IF 1*2 THEN LX ELSE 

IF IFX>HFX THEN H ELSE LX; 

._£Mi _.._ .._. 

IF 1*2 THEN 

BEGIN 
LE_N Xf.t 36t6Jsn^ [HEN 



COMMENT SCAN FQR 

..LAI 



GO TO IF BOOLEA 
IF NXT.t36»6J«" 

""EM3i GO TO LS; 
THE C ] IN CASE OF 
_1£ CI<-BHftCKET(t?J^ 



N(AY) THEN 1.4 ELSE LXJ 

i" THEN 

MAXl_J_h£.N L-X_£lSE-L5J- 



IFCI 
IF I 

..LF....N 



♦•CHECKN 
«-2 THEN 
XT.,t36« 



AN ARRAY ICtNTlFIERJ 
* !})<"> -XHOLJLQ-JU LXJL 



EXT<44!!,"t36.42»6Jn»8 THEN GO TO 

6 ]a , M f M THcN G0 t Q L^.; [ 



L2; 



COMMENT ER80R SlT 
LX« 



UATIQ 
IF D 

_J£_I. 
BEGI 

IF B 

if_a 



N> MARK 
FINE TH 
s_2 THEN 



ERROR 

EN ERR 

ClV[_9_] 



UFN«-1 ELSE 
•i36JL61tEJiX*l_JXSiL 



LX1* 

L5: 



N ERROR' CIC9J.C36I6J4-1 END/ 

00LEANC1) THEN GO TO lxi; 

QOLEANU + REAlC SKI PUNT IL< "*»)) ) THEN 



LE« end 
REAL PROCEDURE 

ftEAt-CaCLC EXLUREL 

COMMENT 

* THIS PROCEDUR 
.VALUE-.Q.F..-R ESU 



BEGI 
IF N 

~l£ 
DCLA 
BLOC 

. PRQC 



N DCLAR 
OT SCAN 
t MER A T £. 

rtype; 
kcbgn); 

EnuRCTE 



TYPE*1 
(i) Th 
XtiOL 



> GO TO LE END; 
EN 

NJU-ULJi- - 



value bgn; heal bgn; forward* 



LL 



e takes care of process^ 

LIJ ill PROCESS .. CUM PlE T E. 



A PROCEDURE DECLARATION! 



11 STOPPED AT 
3: STOPPED AT 
58 STOPPED AT 



END^OF-FILE, 
"BEGIN". 

^ENil*!^ _ 

- J. C. PAQ 



05/03/68 



.VALUE 

BOOLEAN 



REAL. 
LABEL 



-IfiJL 



tp; 



BEGIN 



iL 



02641000 
02642000 
.0.2.64.3.000 
02644000 
02645000 

.._Q26A6£Q_Q. 
02647000 
02648000 

Q.2MH Q.Q.Q ... 

02650000 
02651000 

...J1265_2Q_0_Q.... 
02653000 
02654000 

02656000 

02657000 

_Ji265Ja.QQfl. 

02659000 
02660000 

... 02601000 
02662000 
02663000 

.. J12SAAQJ1Q.. 
02665000 

02666000 

.02667000 

02668000 

02669000 

__Q-2620.Q.QXL 

.026/1000 

.02672000 

.02674000 
J02675000 
1X12.62600X3 

502677000 
;02678000 

ng679QQQ 

02680000 
02631000 
?6B^nQQ 



IF BOOLEAN(DEBUGN) 



Ll*L<2»LX»LXl»LEi 

THEN WRlTE(FGU*DBG,»PROCDR"#NXT#TP); 
IF (1«-P0NTCAHE(1))/8 THEN 



LXI 



BEGIN % THE CJEXT IS A SPECIAL CHR OR A DIGIT- 

IF DFINE THEN ERRDFN«-1 ELSE 
IF I«2 THEN CVm.C36l63»ERX»l ELSE 



02683000 
02684000 
02665000 



02686000 
02687000 
02688000 



Ll» 



BEGIN ERROR' CIC9] ,C36:6]*1 ENo; 
IF BOOLEAN(I) THEN GO TO LXl; 
LFX«-NFX; I»REAL(SK1PUNTIL ("J" )); 



LFX-1 ' 



02689000 
02690000 
2 69 1 000 



52 

53 
54 

55 



56 
f>7 



Lxn 



IF BOOLEANtI) THEN 
BEGIN PRQCEOufHD GO 
TF NOT SCANC1) THEN 



to le end; 



IF GENERATE THEN EDlTlNG(l*l)J 60 TO L2J 
END* 
IF B00LEAN(I»CHECKNEXT(4<i"C w [36.42»63)) THEN 



02692000 
02693000 
02694000 



02695000 
02696000 
02697000 



GO T 
IF I 
IF I 



LXJ 

•8 THEN 
*2 THEN 



GO 
GQ 



TO 
TO 



lx; 



02698000 
02699000 
Q27QQQ00 



# • 



o 
Q 



3 
4 
5 
6 
7 

a 

9 

1(1 
11 

i:> 

r/ 
I 

|14 
'j 
|16 
17 
18 
19 
J J 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 

33 
34 
35 
B6 
37 
38 
39 



40 
41 
42 



• 



43 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
» 



L?J. 



IF NXT.C36:6]X";" THEN GL TO Lx; 
IF NOT SCANCl) THEN 

_!£_ GOjEMJX JM1LM1 1 1MU jlLLL ._ _ 

IF TP THEN 

INF0CHFX.C35l5]#HFx.[«0*a3-lJ.Cl!2J*3; 
IF BO0LEAN(I»BLQC K. (Q)) TH EN 



GO TO IF 1 = 1 THEM LX ELSfc. 
IF NXT, C36J6)*";" THEN 

-BEGI N 



UX1* 



IF OFINE THEN EKRDFNM ELSE C V [9 ] , [ 36 I 6 ] «-ERX*i; 
END ELSE 
IF NOT SCANCl? THEN 



02701000 
02702000 

.G2Z0.I.QQ..Q. 

02704000 
02705000 

_ ..Q2106QQS. 
02707000 
02708000 
02709000 
02710000 
02711000 

_jQ27J____Q_L 



LE: END 
STREAM PROCtDURE_ 
VALUE 

BEGIN 



IF GENERATE THEN ED I T ING ( 1 * 1 ) i 
PROCEDURE 
BGNEND(F»BE»BWCNT*CONO»DFN»0 K ID/BONQ); 



be»bkcnt*dfn; 



02713000 

02714000 
02715000 



_!!-U 0S__i_4OX!L_L*_L__Ii- 



Q.i.*fj ._ ._2 .cD__ta3_j_ii___ 
SI«-L0C be; si«-si + 7; 

IF SCs«l" THEN 

BXGXhl US.* a L_U " tiEG.lM_.Xl' i e..*.q.i_l .._ _ 

DI*BDNO; SI«-CDN0; 0S<-8 CHRj DI«-F; 
END ELSE DS*6 Ll T " * * END C'S 

.AI>ii_C--BKillsaX--DJS_tJ.._OiLC.J.---D.S*-_i -LlXl!i-J3-N...- , *J— _ 

sucdnq; DS«-a chk; 
si*-loc dfn; si«-si+7; 

..l.F-..S.Xl_."l-»i...IREii- _ _ .._ - _._ _.... 

begin ds*h lit" in define "> 
si*dfid; si«-si + 3; ds<-5 chr; ds«-lit« "; 

END ELSE BEGIN QS»LIT" VJ DS»16 lIT"****" ENq; 



02716000 
02717000 

jQ2ixaQ__a. 

02719000 
02720000 

...0*7^14X041. 
02722000 
02723000 

..02l2A00H~ 



SI*L0C BE; Sl«-SI + 7j 

IF SCX"1" THEN 

B EGIN DUOI-i; DS +Llf" 



02725000 
02726000 
4X2-7_27-4).00. 
02728000 
02729000 
_0_221P_Q0_Q_. 



DS*8 lit"****"; 
sgnend; 

a .THE. AM£____CJL__Ufi£._____LL . 



•i SI+dPNQ; DS-8 CHR END FLSE 



02731000 

02732000 

_02X330_0_0_.. 



END 

MAL. .PROCEDURE 

COMMENT .,, 

: THIS PROCEDURE PROCCESSES THE 

...1_... _ J=L____ 



STREAM PKOCEOURES. 
__-!___ J_v-_C->_J____ 415/23/68 



J 



02734000 
02735000 

.02737000 

102738000 

-»02 7.3__OX-0- 



VALUE 
RnnLEA_4. 



TPJ 
-TfU. 



i02740000 

02741000 
274 2000 



REAL PROCEDURE 

.VALUE-.. 



BEGIN 



REAL 



errstre.am( j); % 

_u 'L 



2 J " } " , '• i " 
!>3f5l FQF» 



4: "THEN". 6$ 
LaEG lN"> " E N D" , . 



02743000 

"ElSE'\02744000 

02745Q00 



J) 



BEGIN 



_R£AL 



_LL 



02746000 

02747000 

_Q__7«1$J)J_Q- 



LABEL 
IF BOOLEAN(DEBUGN) 



li#l2,le; 

then writecfou#d_g#"errstm",nxt»j); 

i f (i»lfx&jl1»1»13)<0 then j »*j; lfx»nfx> 



IF DFINE THEN ER&QFN*1 ELSE 
IF J*2 THEN CV[9J#£36*6]«-ERX<-1 
BEGIN ERROR) CU93.C36163M; 



02749000 

02750000 

STHM»FALSE;02751000 



ELSE 



111 



I 
I 

END, 



F BOOLEANCJ) THEN GO TO LE; 

F GENERATE THEN EDI T I NGC I, NCR ) ; 



02752000 
02753000 
02754000 



L2I 



IF CJ*CHECKN£*TU_"JM36J42«6J))*8 
BEGIN J*2J GO TO UE END; 

IF J»2 THEN 



02755000 
02756000 
Q 27 570 Q 



THEN 



02758000 
02759000 

Q27»Q0Q0 



55 

H< 
SZ 






V 



7 
3 
4 
5 
6 
7 

i a 

|9 

10I 

" 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



| 23 

24 
25 

| 26 
27 
28 

I 29 
30 
31 
32 
33 
34 
35 
36 
37 " 
38 
39 



41 
42 
43 



• 
• 



45 
46 
47 
48 
49 
50 



51 
52 
53 
54 
55 
56 

5!. 



IF NXT,[ J6!6Js«)" AND I>0 THEN GO TO LE ELSE 
IF NXT,C3656J=""" THEN 

-B£&JJi ST HI NO; Gq..JJLU_£NH_LklL 

GO TO IF SCAN (IF INX T . C 42 * 6 ] = ^ 



ELSE Li; 
-LE_Jifl_IH£hl_IiL 



THEN 1 ELSE 0) THEN 
lF..X«.aLJS_...U.£N_.£lL....I0..X2l_....„ 



L2 



LEI 



PROCEDURE 

VALUE 

- REA.L 

REAL 



-EM 



IF I>0 THEN 

IF IFX*DFX+9 THEN BEGIN J«-6; GO TO LE END ELSE 
lJL-ILXgiDFX + 19 THEN BEG1 N J *4 ; _G _T LE EN pi 
IF NOT BOOLEAN iJ) THEN GO TO L2i 
LFX*ABSCI); STRMtTRUEi ERRSTHEAM«-j; 
t&RSJLREAMi 



LOCAL(X); 

x; 



* MAKE A "LOCALE I NFri'txH"", 



BEGIN 



1; 



■il--B_QQL£AN^DEBJUJLN_L_.TJl£,li_WHl T E ( FPU. DaG, " LOr a. », HXliXU. 

IF NOT GENERATE THEN STAHTGEN* 
EV[0]«."LOCAL."; EVtl]4.0& M ["ciM3»S3i 



PROCEDURE 

VALUE 
- _ REAL 



-END- 



eoiting(i*6); 

-E4I1 Il.N£Ll^IJ^^lJU.t,lNXILLJJ:.x J JLli3±bJ uUiXUAQUiXi * 
lNF0CI»X-lJ.C«0idJ]).ti2i6])i FST*.^; 
EV[0 3«-0*"]"C18U2J6]; EDITIMGC 1 ,1 >; 
LG4AL-; 



REPEATFIELDCXJ; 

x; 

XJ 



* MAKE A KEPLaTFIElO. 



BEGIN 
IF BOOLEAN(debUGN) THEN WrITE(FOU*D0G, m rPtfLD"/NXT^X); 

- - - ---If- NOT G FNFRATF THFM start s,; 

IF XXO THEN .LBCAL(X) ELSE 



02761000 
02762000 

...Q2jr.fi MOO 
02^64000 
02765000 

-02J66.0XLQ. 
02767000 
02768000 
.02.76950J3. 
02770000 
02771000 

0277300C 
02774000 
0-22X5.00.0 
02776000 
02777000 
Q.211MQQ. 
02779000 
02780000 
Q21.&1.Q&S}. 
02782000 
02783000 

4X2-7-^4^00 

02^85000 

02766000 

.0L2Za.ZQ0.Q. 

02788000 

02789000 

-Q2_Z.iQ_Q.QiL. 



..REAL.. PROCEDURE 

REA L PROCEDURE 



END 



BEGIN EVE0]*«TALLY»; EDITING(X,5) END; 
£l.LOi±Q & " . " [ 1 8 I 4 2 L6_3 j_____SJ> 4j _ EnlT TNfif 1 > p ' 
EVC034."tSI6] M ; EDITING(1#5); 

repeatfield; 



REAL 
LABEL 
If JOOLEANCOEBUGN) 



ST.AT.E MENT(J» B»BNIJ)1 

value j,b; real j*b; arraT^mjcq]"; 

SETPOInTer; % E,\TER WiTh "Si" 

B£G_l.N_ -^0^-^Eja_.UiiKNJItt.N^__ 

I' * 1*3* 5S EOF/ BEGIN, END, 



forward; 
or "di'\ 

i^*^6_l_^£RRS_IRXAMJ 



LX! 



L1/L2,l3j-LX*LE/ 
-1HXN WRITE(FOU*DBG,"SETP isT " > NX T U_ 
IF GENERATE THEN EDITI NQ C 1," 2 ) i~ 
IF (I*-CHECKIMEXT(4«i"«-"[36;a2:6J))X8 



GO 



BEGIN SETPOlNTER«-ERRSTREAH_ClJi 
IF NOT SCANC1? THEN '. 
IF GENERATE THEN EDITI NGC 1» 1 )i 
IF CI»CHECKNEXT(imiO THEN 
BEGIN IF I"10 OR I»14 THEN ENR0R7 
IF GENERATE THEN EDI Tl NG C 1 , NCR ) ; 

end; 



then 
to le 



end; 



02791000 
02792000 

„_JL279ACLQ.Q. 
02794000 
02795000 

.-...02.796QQ0 
02 797000 
02798000 

■ Q2±i9sma. 

02800000 
02801000 
02802000 

02803000 
02804000 

02805000 



02806000 
02807000 
02808000 



go to le; 



IF 1*0 QR IFX'BLK THEN GQ TO Lx; " 
IF NCRo3 THEN 

IF EVC03.n8.18]X"L0C" THEN GQ TO LX ELSE 
BEGIN IF NOT GENERATE THEN STARtGENT ~ 

EVtO]«-«POlNT»; EVtl]4-0&"ERC"Cl»31«l7]j 

EDIT1NG( 1»8); bbk»false; 



02809000 
02810000 
02611000 



02812000 
02813000 
02814000 



IF (I«-CHECKNEXT(1))<10 THEN GO TO LXj 
IF I<14 THEN 
BEGIN ERROR; 



02815000 
02816000 
02817000 



02818000 
02819000 
02820000 



i 



2 
3 
4 
5 

6 
7 
8 
9 
10 



39 
40 
41 I 
42 
43 
44 I 
45 
46 

«! 

48 
49 
50 I 

51 

52 

53 I 

54 

55 

56 % 

57 



£ 

o 
o 
Q 



10 

j 12 i 

n 

14 

'f'ir 

r 
it',! 

i;[ 

uo| 
figf 
bo 

21 
22 
23 
24 
(25 
126 
27 
28 
29 
30 
31 
32 
33 
34 



36 

37 ~ 

38 

39 

40 

41 

42 



LI* 



IF GENERATE THEN EDIT ING< 1>NCR) J GO TO LU 
ENU ELbE 
...££ G UL-Lfl C A L ( U AH _...._ 



IF NOT GENEHmTE THEN STARTGEn! 
EV[O]«-0&")"C 16:42*6); ECITINGC1M); 
IF MIT & £jj£JJAl £ THEM STARlGFml 



02621000 

02322000 

_Q2JL23£.QQ. 



END; GO TO LE; 
END ELSE 
IF NCK/2 THFN GU TO I X ; 



IF I«-EVC03.tl8:i23 = "SI" THEN GO TO L3i 
IF I»"DI" THEN GU TO L3; 
.I F ls"SC" THE N G Q TO L?i 



02624000 
02825000 

._ 0?626non 
028«7000 
02828000 

— X1282900a 



L2J 
..L3J 



IF Is"DC" THEN 
BEGIN ERROR; 
TF GENERATE ThtN 



02830000 
02831000 

02 fl 3?nno- 



FOlTTNfiClf 2)X 



02833000 

02834000 

-0-2-8-35000- 



IF I,U2»6] = "C" THEN GO TO LE; 

IF CI*CHECKNEXTC44" + ,, C36:iJ2«6] ))*8 

IF I*2_.TH£N..J».Q_IJ1_LX._FXS£ 

IF NXT.t36:6]X"-" THEN GO fU Lx; 

IF NOT SCAN(l) THEN 

.I£._^EN£BAlL_TJlEN_XOl.II^.G.Cl<.l.li 

IF CI*CHECKNEXT(1))«2 THEN 

IF NXT,U2I63*0 THEN GO TO LX ELSE 

.££££N- 



THE! 



IF NOT SCAN(O) THEN 

IF GENERATE THen ED I T I Nb( 1j» NCR ) i 

..E.NJL £UE _ _ 

IF I<10 THEN GO TO LX; 
IF K14 THEN 

RFGT M e rr or; 



02836000 
02837000 
0283 80 00 
02839000 
02840000 

..nzfl.4a.0nja.. 

02842000 

02843000 

-Q2B44Q0Q. 



go tu le; 



if generate then edi tl ng ( 1 , ncr ); go tu le; 

end; 

PE P EATFIEUDdFXJ; 



02845000 
02846000 
.Q28..47Qnn. 
02848000 
02849000 

ogaannnn. 



real 



LEI END 

PRQCIDJURI 

VALUE 
REAL 



end else go to lx# 
setpointer; 

para meter(xm) ; 

x#i; 
x#i; 



02851000 

02852000 

J2285_iQ0JL 



REAL 



PROCEDURE 

VALUE 

REAL 



J1EGIJ1 



STORE(XM); 

x»i; 

JLtll 



02854000 
02855000 

-Q2_85£Q0fl_ 

02857000 

02858000 

.Q ?859 .0,an. 



BEGIN 



02860000 

02861000 

-Q£8_6^0_0_Q_ 



REAL 
LABEL 



j*k; 
lijL2»i.x»le* 



02863000 
02864000 
02665Q0J3_ 



45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
56 
56 
P7 



IF B00LEANCDE8UGN) THEN WRlTECFOU#DbG, "ST ORE M »NXT,*,I); 

IF K14 THEN IF GENERATE THEN ED IT INGC t*NCR)ELSE EL 
BEGIN IF NOT GENERATE THEN START6EN; K»L3T END; 



02866000 
SE02867000 
02868000 



LX* 



IF ( j4-cHECKNEXT(4<i"«-"[36:42»6J ) >*8 THEN 
BEGIN STQRE*ERRSTHEAM(J); GO Tu il END; 
IF SCAN(l) THEN GO TO LX; 



02869000 
02870000 
02871000 



SE02872000 
02873000 
0287«00Q 



43 
44 4 

46 
46 
47 i 
48 
49 
50 I 
61 
52 
53 I 
54 
55 
56 I 



IF 1*14 THEN IF GENERATE THEN EOITINQC 1*NCR)ELSE EL 

IF NOT GENERATE THEN STARTGENi 

IF CJ»CHECKNE>TU))<0 THEN GO TO LX; 



IF IFX/BLK THEN GO TO LX; 
IF NCR*2 THEN GO TO Li> 
IF NCR*5 THEN GO TO LX; 



IF (J*EVtOJ).C18S303^ ,, TALLY , ' THEN GO TO LXJ 

IF KXU THEN GO TO L2; 

EST fr Ql LST frK J LUCAL(X); , 



02875000 
028/6000 
0?877000 



02878000 
02879000 
02880000 



• • 



'9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2b 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



LI J 
L2J 



EV[03«-0&"*"[l8i4 2«63> EDITING (1,1); 

REPt'ATFIELDCQ); GO TO id 
-LLJUtJUlSLl ? . 1 1 8 • 1 2 3 / " S 1_- _ANU_ JL« 1 1 6.tl2.1_:UlI-._ J__E_l_ 

6EGIN ERROR' J.UU3*1 END EL&E 

IF I«10 OR 1*14 THEN GO 10 L2^ 
-IF 1 <U TH EN 

BEGIN IF GENERATE THEN EDI T I NG( 1* NCR ) i 
GO TO LEJ 
-ENC ELSE- IF NUT GENERATE,-. IjjEjy.ST ARTGENi 

IF CI*(EV[OJ*lNFGlX. £35:53, X,C40l833),C12t63)>5 TH 

TRNSFWDS(EVtU» INFO £X . [ 35 * 53 , X , [40 ! 8 3 M 3> 
CI*2?._3_l_LL-i 



EN 



fsuo; lst«-k; 

EVC0]*Q«"*"[l8l 
JLE. NCRp? THEN_ 



EDITING(1,I); 

4**63; LST*a; EOITINGC 1 ,1 ); 



...LEI EJSI.0 



BEGIN EV(0]*j) 
BEGIN REREATFIE 
SIO-EX _ 



E0ITING(1,2) END ELSE 
LDCO); CI[93. [36*63*1 END; 



REAL 



PROCEDURE 
VALUE 

.REAL 

REAL 

BOOLEAN 

LABEL 



loop(x*ij; 
xm; 

Jdtll 



BEGIN 



j; 
jajl 



IF BOOLEAN(DEBUGN) 



L1,L2,LX1>IX,LE; 

THEN WRlTE(FOU»DB(i,"LUQP »»NXT*XM>» 

.JIX__.___.J__.N__ ....- 



BEGIN 

IF SCAIUCO TH 
_ IF ( J*CHECKNE 



EN GO TO LXi; 

XTCU ,f ("[36t42t6J))*6 THEN GO TO LX, 



02881000 
02862000 

_..._2___._Q_.. 
02884000 
02885000 

__nz8A6fl0i) 
028H7000 
02668000 

-.£2-89000. 
02890000 
02691000 
_ 0?89 2Q0n 

02693000 
028^4000 
_. O^aVbQOQ . 
02696000 
02897000 

02899000 
02900000 

.. _2_QJLQ QQ 
02^02000 
02903000 

_J_t_Q__Q_. 
02905000 
02906000 

..jQiSilZfliUQ... 
02908000 
02909000 

j__§_e___. 



IF NCR>8 THEN 
IF (NC«*LEADI 

TOCVRT(X,EV[Q 



NGO(EVC03#NCR)J>8 THEN GO TO LX; 
3, 3,NCR,1)J „ 



029HO00 
02912000 
Q_9130Q_. 



IF X>63 THEN X ♦ X , U 2 .1-6 J'l 
IF X>9 THEN 

_____ _____ 

J*0&(X U jV 

[24»42!6]; 

JE__ E LSE 



10)[18U2I6]4EMIER(X MOD 10) 



BEGIN J*0SXL1 
END ELSE 
BEGIN IF I<14 T 



81^2163; ncr*i end; 
hen error; j«-ev[qj end; 



029H000 

02915000 

____! __£_... 

02917000 

02918000 

__9_ 90 J__ 



02920000 
02921000 
02922000 



IF NOT GENERATE 
EV[03«-"THRU w ; 
IF I5U THEN 



THEN STARTGENi 

editing(i*5); 



02923000 
02924000 
02925000 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 
56 



BEGIN EVCQ3*JJ 

REPEATFIELDCX); 
EVC03»"0Q »i 



E0ITING(1,NCR> END ELSE 
LST#FST*0; 
£01T1NG'(1*2)< 



lxh 



IF N*NEWCD THEN 
IF SCANtl) THEN 
BEGIN J»0; 



EOITING(0#AVC); 



02926000 
02927000 
02928000 



02929000 
02930000 
02931000 



LX* 



loup*errstrea 
end; 

IF NOT GENERATE 



mcj); go to le; 

THEN 



02932000 
02933000 
02934Q0Q 



BEGIN STARTGEN; 
IF N THEN 
BEGIN BB*JjEA_JJ_____Al___l_ C IV AL ID-FALSE END; 



02935000 
02936000 
02937Q00 



____ 



ENO; FST*OJ 
EV CO 3 * "BEGIN"; 
IF BOQLEAN(J*ST 



editing(i,5); bbk^true; 
atement(checknext(1)»0»a)) then go 



02938000 

02939000 
LX;0294000Q 



# • 



V 



L21 



IF 
IF 

BF.GIN 



J*2 

NXT 



THEN GO TO 
[36:ojs";" 



lx; 

THEN 



5 

6 

/ 

8 

9 

10 

111 

p| 

13! 



118 

'.>ol 

|21 
22, 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



H 

P 6 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

46 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



LEI 

REAL 
LABEL 



END. 



IF SCANCi) THEN GO TO L 
IF GENERATE THEN EOITIN 

FNQf 

IF NXT. 136:6]/")" ThEN GL TU LXi 
IF SCANCI) THEN GU TO LXi; 

If KiGT GXN XiiAli THF^ SX AJt X GXftJ 

IF NOT NEWCD THEN LST*FST*Oi 
EVt03+"END "J £UITING(1#3>* 

loop ; __ 



xii 

G(l»l)> GO TO LI* 



02941000 
02942000 

__Q.2-9A3.Q.O0. 
02*44000 
02945000 

-029-A600-Q 



02947000 

02*48000 

-02-9 49 000 



j#k; 
li*le; 

IF 1 = 2 



THEN GO TL LI* 



J»EVt034NCRCl«31»173i 
K*CHECKNEXTC4& M C ,, t36;42:6 

MB±iLy.LQA±Jl.!±.lAkLU. 

IF BGOlEANCK) THfcN 

8EGIN 

I£_..G£N£fiAl.L IMN_JUU11^ 

IF K*3 THEN BEGIN EVCQJ 
IF K = 3 THEN BEGIN EV[0] 

__ -EAfiAMEXEfl* EflRSTREAM LKXX 



02930000 
02951000 
-O29A2O.00 
029^3000 
02954000 
02935000 



}V* 



0.C1JL N CJUi- - 

*"BEGIN"J NCR*5 END ELSE 

*"ENO "; NC««-3 end; 

_. J»fl_ TO-LEJ- 



REAL 



IF 



LI! 

LE5 END 
PROCEDURE 

&EG.IN 

REAL 

LABEL 
800LEANCDEBUGN) 



end; 

if k/8 then paramltth*storecx'i) else 

£ARAMLXE^±U10JLUjlJLIJ _. ._ 

parameter; 
tally; 



02956000 
02957000 

029 5.8.0X50 

02959000 

02960000 
_ 0296.1000. 

02962000 
02963000 

_ 029-6-40X10 
02^65000 
02966000 

X12.9ii2.O00 

02968000 
02969000 
029 7Q DJ1D_ 



i*b; 
lo*li»l2»lx»le; 

THEN WRlTE(FQU>DdG» w TALLY 



•»»nxt); 



029/1000 
02972000 



LX: 

LOI 



IF GENERATE THEN EOITINGC 

IF CI«-CHECKNEXTC4& M «- M C36: 

J E GJJI TAL LY*-ERRST H£A M_( I ) ; 

IF NOT SCANCI) ThLN 

IF GENERATE THEN EDIT1NGC 

IF CI*CHECKNEXTC1))*10 TH 



uncR); 

42«6J))*8 THEN 
GO TO LE END/ 



l»l)> 

EN 



02974000 
02975000 
02*16000 
02977000 
02978000 
02979000 



BEGIN IF I<14 THEN BEGIN ERRO«; 
REPEATFlEuOCIFX); GO TO LE' 

end; 



30 TO L2 END; 



02980000 
02981000 
02982000 



LI J 



IF 1=2 THEN 

IF NXT.C4216J70 

BEGI N 



THEN GO TO LX ELSE 



02983000 
02984000 
02965000 



L2I 



IF NOT SCANCO) THEN 

IF GENERATE THEN EDIT INGC l#NcR )l GO TO LE; 

end; - 



02986000 
02987000 
02988000- 



IF BOOLEAN(B) THEN GO TO LX; 

IF 1*0 THEN GO TU LX; 

IF I FX /BL K THEN GO TO LX> 



IF NCR/5 THEN GO TO LX; 

IF EV[O3,[18i303* M TALLY" THEN GO TO LX; 

IF GENERATE THEN EDIT INGC 1>NCH ) j B+1J 



02989000 
02990000 
02991000 



02992000 
02993000 
02994000 



GO TO IF (I*-CHECKNEXTC4&" + "[36,42:6] ))=8 
ELSE LX; 



THEN LO 



-LEJ EJUS tally; 



02995000 
02996000 
02997000 



REAL PROCEDURE GOTO) 

BEGIN 
-fl£AL Itj; 



X ENTER WITH "GO". 02998000 

% 01 NEXT UNKNOWN. 2*4»6l "ERR5TREAM" ,02999000 
% 1*3*51 EOF, «BEGTN«, "£ND% Q3QQQ000 



57) 



• • 



~M 



9 - 

10 

11 

12 

13 

14 

15 

16 

17 

18 

IS 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

3b 

36 

37 ~ 

36 

39 

40 

41 

42 

43 

44 

46 

46 

47 

46 



49 

50 



52 

53 



5B 
56 



LABEL 
IF BDOLEANCDEBUGN 

LI « 

LXJ 



li*lx,le; 

) THEN WRITECFQU>Qd(i,"GOTa ">NXT); 

I£_aUi£iiAJ E THE N_ EJlLJjJiG_Ll^A£HJ. ;.._..JLa.H_L__^_l____, 

IF BOQLEANCUCHECKNEXT(IJ) THEN 

BEGIN GOTOERRSTKEAMCI)* GO TO LE END) 

If. I__fl_lJ_E.N GQ TU J.J11 _ 



IF IFX=DFX+23 THtN * Trit WOHU "TO". 
BEGIN IF BUOLEAisCJ) THEN GO 10 LX ELSE JMJ 
I£_ GENERATE -THEN F I LU&t 1* JfrCJUJL -Ji-U-Xil 



LI. 



03001000 

03002000 

0.jOQ.10_Q..a.. 

03004000 

03005000 

J3.3-0 060X5-0 
03007000 
03008000 

.JX3JQ.J1S_G_1Q_ 



LE* END 
REAL PROCEDURE 

_ __ - __ -RE.fi 

REAL 
LABEL 



l_x: 



END* 

IF IFX*BL» 

_L_L 
GOTO; 
JUWPQUT; 



OR IFX<LFX THEN GO TO 
L THEN Enr.TlNfifUftLC R_U- 



LX; 



IAL 



LIS 

L2» 



J»E*Li 
Ll*L2#LX# 
. IF NOT GE 

IF J*CHEC 

BEGIN jUm 

IF IFX/DF 

IF NOT GE 

IF (J«-CHE 

.. BEGIN. __. 

IF NXT 

BEGIN £ 

LVX.Q.1 

IF EX 

BEGIN 

J__M£I1 



le; 

M£RA.TEL 



THEM STaRTGEn; L»LST; 



KNEXT(1)^0 THEiM 
POUT<-ERKbTREAHC j ) ; 
X+15 THEN GO XO_LX; 

ST ART GEN"; 
THEN 



GO TO LE END; 



NERATE THtN 
CKNEXT(1))*2 



[36": 6] = ";" then" 



v[0]* m jomp "i lst«-l; fs 

_E.SBJ_ii;...._JLlUI 



THEN 
EVC0]«-e; EDITINGCWE.C 

JJJjfe-ii G O TQ L EJ 



T*0; EDlTlNG(l*b); 
XMfilXtlJLL _ 

12*6 3 ) end; 



end; 

IF NXT.C36:6I5" 
TF E*' Q TH EN GO 



03O10O00 
03QU000 

-caaiiujxm. 

03013000 
03014000 

XL3.045OD.a 
03016000 
03017000 

.Aa_QJJJLQfl. 
03019000 
03020000 
030*1000 
03022600 
03023000 

..QJ_QZ4Q.QC1 
03025000 
03026000 

...£L___27.Q__fl. 
03026000 
03029000 



)" THEN GO 
TO LX/ 



TO L?J 



IF NXT.U2«6]X0 
IF SCAN(O) THEN 
IF, NOT GE NERATE 
E«"EV[0J»N.CRC12» 
IF (J*CHECKNEXT 

__J_I__L 

IF Js5 THEN GO TQ 
IF IFXsDFX+9 THEN 
1F__I _____ OF X + 23 TH E 



THEN GO TQ Lx; 

BEGIN J«-0; GO TO LX END; 

IHLN_Ji.IAR.r_G. EN _ 

42!63i 

CI ))*2 THEN GO TQ L, 1 i 



L2; IF J/0 TH 
BEGIN J*6; GQ 
N GO TO LX; 



EN GO TO LX; 

to L2 end; 



03031000 
03032000 

.ji__yj.i-o.ao..- 

03034000 
03035000 

Q.3.Q36Q.QJ_ 

03037000 
03038000 

_C_3J__iy_Q___L. 
03040000 

03041000 
03042000 



IF NOT GENERATE I 
EV[0J«-"G0 TU"; Lb 
IF (J»CHECKNEXTC1 



HEN STARTGENi 

t«-l; fst*o; ed 
))xq then go to 



ITINGCI'5); 

lx; 



LE» END 



REAL. PROCEDURE 
REAL 



IF IFXsBLK OR IF* 

if generate then 
jumfqut; 



03043000 
03044000 
03045000 



<LFX THEN GO TO 
EDITINGC1,NCR); 



Lx; 



BEGIN 



ifstatement; 



i»j; 



% ENTEK WITH "IF". 
* 0* NEXT UNKNOWN. 
% 1*3, 5> EOF, "BEG 



03046000 
03047000 
03046000 



JLL 



ARRAY 
LABEL 
.J___I_tJ_m_£EBJJa___L 



2»4*6l "ERRSTREAM' 
I N"; "ENQ% 



03049000 

,03050000 

_C__i_L!_lC_C___. 



ECOJ83; 

L0#L1#L2#L3^L4#LX*LE; 

THEN HRlTECFO.,DBG_"lFSTrtT",NXT); 



JJLL 



IF GENERATE THEN EDI T INGC 1#2 ) J 
IF B0QLEANCI<-CHECKNEXT(1 )) THEN 
RFfilN TFSTATFlj|FN1*ERRSTRFAM(Hl 



% THE WORD "II 
G Q TO LF END; 



03052000 
03053000 
Q3Q-400Q 



IF I»2 THEN 

IF NXT.C*2»6]«0 

BEGIN 



THEN 



03055000 

03056Q00 

__L_______J___CL 

03058000 
03059000 
03060000 



T* 



47 ■ 

48 

49 

50 ' 

51 

62 

63 ( 

54 

55 

56 I 

57 



i: 

lv 

14 

5 
6 
7 

9 

|iol 

II 

"L 

■13,' 



Hi' 
■7 
18 

19 
'2C 

t 21_ 
E2 

1 

p 6 
?7 



b 



GB 
39 
40 
41 
«i 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



L0: 



LI' 



12 1 



IF SCAN(O) THEN GO TO LX> 
ECO]*EVC034NCRill3XH7]; 

_._1£ NLH.^b_J.lllLtL..MN.^.WDiL.IiLLUjr.£l 

IF NOT GENERATE THEN STARTGEN; 
IF (I*CHECKNEXT<1))^0 THEN GO 

... _.1F _Ji£fi/2_TJl£iL_4tLJLfl_LX_E L§ £ _ 

BEGIN J*-EV[0] .1185 12]; GO TU L2 END/ 

END ELSE GO TU Lx; 

IF l>m THF;m 



TO UXi 



BEG I 
EC 

.end;. 



N IF Kl4 THEN ERROR* 
O3«--I«IFXC30l35ll3]J GO TU 



lo; 



IF I/O THEN GO TU LX; 

IF IFX/3LK THEN ciU TO 

-IF N C H«6 THE N 



03061000 
03062000 

„£L3-4l6.a&0_Q._.. 
0306A0C0 
03065000 

Q.3O6_6_0_Q_Q._. 

03067000 
03068000 

_ 3QA9J1O.O. 

03070000 
03071000 

. (i307?nno— 



LX. 



IF EVC03.C18 

BEGIN J«-"E" 

If COMPARE 

error; if 

GO TO L3; 

_EJHJ_£L££ .._ 

IF NCR/2 THE 
IF J'EVtOJ.L 

_JLE_JJ!!lSCa._i 
IF NOT GENEH 
IF (I*CHECKN 

._l£_ J±HXU_L3lO 
IF J/"s" THE 
IF JX'V THE 



:30]/"T0GGL" THEN GO TO LX ELSE 

A.CLY LI 1* AtSLi lii )JL& 1 HEM G O Jfl-LXi, 

GENLKATE THEN EQlTl NGC1# NCR)* 



N GO TO LX; 

18U23s"SB m THEN GO TO Lll 

en en to lx; 

ATE THEN START 
EXT(l))/2 THEN 

N IF J**«i" TH 
N GO TO LX; 
1 ) T HEN 



GEN* 

GO TU 
...I£^.*". 
IEN IF 



lx; 

'.<".__Ih£N_ 



sJ/ M >" THEN 



IF NOT GENERATE 

IF BU0|_EAN(1«-CH 

-LE-JAJlT G E N E RAT E 



THEN START 
ECKNEXT(lj) 

T"EN _ STAR T. 



03073000 
030/4000 

-XmiSOlUL- 
03076000 
03077000 

.. 0.3 0_Z 80.0.0 

03079000 
03080000 

.joaiiioooa 

03082000 
03083000 

-03.G8AO00 

03065000 
03086000 

.iUfl.tt.ZD.ao 

03088000 

03089000 
..Q 309000.0- - 



gen; 

THEN 
G£Ai_.. 



GO TU lx; 



03091000 
03092000 
03093000 



IF I»2 THEN 

IF NXT.C36S6]/""" THEN GO TO LX ELSE 

flgftTN % ST RING. 



IF ELOJXO THE 

EVCOJ*"SU " 

-SJRlNGi GO T 



N GO TU LX; 
&JC30:42J6J 
iL_Lit 



FSWU; EDIT INGC 1* 3)i 



03094000 
03095000 

...QJlOifi-O-QQ. 
03097000 
03098000 

..03099000.. 



end; 

IF IXO T 
_l£__lEJ4«i 



WEN GO 
7 THEN 



tu lx; 



03100000 
03101000 
0310200 



BEGIN % 

IF E[0 

IF 4t" 



"ALPHA 
JXO THE 
*" THEN 



u go to lx; 

GO TQ LXJ_ 



A BAD ANY WAY . 



EVCQ1* 
EVtOJ* 
EVC03 * 



03103000 

03104000 

.0 3105 00X1. 



'♦REAL( M 
«Sl#l) w 



fst*o; 

EDITINGC 
ED1TING C 



EDITIN6C1»5)J 
1*5); 



EVtO]*- 
GO TO 

end; 



"ALPHA"; FST*o; E0ITING(1»5); 

L3; 



03106000 
03107000 
031080 00 



IF NCR/2 
IF EVC03 
EVCQ3» W $ 



EVC0J*0«l 
EV[0J*"D 
EVC03»"F 



THEN G 
. C 181 12 

iisi "; 



o to lx; 

3**00" THEN 
FSTfOi ED 



03109000 
03HO0O0 
031U000 



GO TO 
ITINGC 



lxj 
i'5j; 



03H200Q 
03113000 
03U4Q0Q 



JC10J42 

noi"; 
or '»; 



i6U FST*4 
FST*0; ED 
EOI TINGC l, 



» EOI 

itingc 
3); 



TlNGCl/l ); 
1*5 j* 



03115000 
03U6000 
03U7QO0 



IF EtOKO THEN 
BEGIN 
IF E[Q3.[43I5J<14 THEN 



03116000 
03U9000 
Q31 200 



* 



17 

|18 
19 

u 

21 
J22 
23 
24 
26 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



55 
56 
57 



BEGIN 

IF J*(EVtO]«-lNFOC(I*EtOJ).t30*5]#I 
—LLZLhJJ&L. TH F N 



C35J833 ) 



TRnSfWqS C EV C 13, INFO CI. [30*53,1, [35 » 83+1 3, 
(J+23.C36I9J); 
END E L SE _ _ _ 

B E G I N R E P EAT F 1 1 L ftl T, ~U 0~S 13 "j ')} 
END ELSE 
I F E t 3 ^Q -JH£N.Xyi.Q-ltMl^XlI_.li-» 4 2 : 6 ] & 1 [ 1 6 I 4 2 » 6 1 £L 



60 TO L3 END; 



L3: 



L4» 



IF <J«-(EVC03»E[0]).tl2l6])>5 THEN 
TRNSFWDS(EVCl3fECn»(J + 2) t t36S9 3); 
ECTTlNr.t l«.n: 

IF (I*ChECKN£XT(lJ)XO THEN GO ~ 

IF IFXxDFX+19 THEN GO TO LX> 

IF GENFR aTF THFN LniTINr,fl.N0R),j 



TO lx; 



IF <I«-STATEMENTCCHECKNEXTCn*0,E)")*2 THEN 

BEGIN lKSTATE«ENT>i; GO TO LE END ELSE 
i.E-l«5_IiJE^L..Gfl.JJ3_LJ-_LL§_E- IF 1/6 Thfn en T f i \ Y } 



LE» END 
REAL PROCEDURE 

££&IN. 

STHEAM PROCEDURE 
VALUE 

— BEJ11R. 



IF GENERATE THEn ED I T ING C 1 , NCN ) ; 

GC TO IF CI*STaT£MENT(CHECKNEXT(1)#0>E))«8 

^^-l£_X=i_„0^_UjLTii£j^.j.A...Xk5^.LJiJ__ 

ifstatement; 
transfer; 



THEN L« 



ADjUST(U#NCR»NMRJi 

ncr»nmr; 



01*0* DI*Dl + 3; 
Sl*o; 314-si + j; 

MMB f n«i.r.HBl N r R»fHf 



REAL 

ARRAY 

LABEL 



END 



ACJUST; 
-EIC»8]J_ 



ui«-di+ncr; 



L1,L2,L3,L4>LX#LE; * ' 

IF BOOLEANCDEBUGN) THEN WrITE(FQU*DBG> ,, TRNSFR%NXT); 

- li"— £I»CH€CKNF<T<M^»rC36i42i6n)<B 

L-XJ BEGIN TRaNSFE*?*EHRSTHEAM(I); GO TO LE ENQ 

IF NOT GENERATE T*EN STARTGEN* 



THEN 



£JLCiL3jt^HjE£kA^i_ELV.L| J4-0&'«f;F'*Ll«3y ill3J rnTT iNfif 1 , 7 ) ; 
EV[03«-«DI>Dl"i Fi>T*0; EDIT 1NGC 1 ,5 }; 
EVC03*»BY «; EDITING(1*2); 
.IF 5CANC 1) THEM Gfl TQ_| XI 



IF NOT GENERATE THEN STAR1GEN> 

IF CI«-CHECKNEXT(X>)*2 THEN 

IF NXT.U2I63XO THFN Gfl rn I ^ f ,, SF 



03121000 
03122000 

-Qj.12.300a. 
03124000 
03125000 
.-Q2.126QM. 
03127000 
03128000 
!?EQ.312 9 OJQ 
03130000 
03131000 

01112000. 

03133000 
03134000 

..flJJL3J54Qfl 
03136000 

03137000 
Q.2U9.Q.Q.Q 

03139000 
03140000 

Q.3I.A10Q.11 

03142000 

03143000 
.0 3 1 4 4.000. . 

03145000 
03146000 
.Q44.uZe.00 
03148000 
03149000 
-0*1-500X10- 
03151000 
03152000 

jaaiiiiLojL 

03154000 
03155000 
Q2i560CLC 

03157000 
03158000 

..Q.3.1.59Q0.Q _ 

03160000 
03161000 
03162000 



IF SCANC9) THEN GO TO LX ELSE 
BEGIN IF NOT GENERATE THEN STARTGEN; 
TF Nf!R>fl THEN 



03163000 
03164000 
03165000 



IF (NCR*LEA0ING0(EVI0]#NCR))>8 

lOCVRT(J#EVl03»3»NCR»t>i 

TF J>63 THEN J»J.r4 2l6TI r.Q In 



THEN GO TO LX; 



03166000 

03167000 
03168000 



end; 

IF 1*10 THEN 

BE GIN JF NOT GENERATE 



Hi 



03169000 
03170000 
03171000 



LH 



IF I<14 THEN ERROR; 
J*-IFX&REAL(I<14H 30:47U3; 
I«-CHECKNEXT(1); 



THEN STARTGEN; 



03172000 
03173000 
0317400 



END ELSE J*U 

IF IXO THEN GO TO LX7 

IF IFXXBLK THEN GU TO 



03175000 
03176000 
03177000 



lx; 



031/8000 
03179000 
03180000 



■*~1« 



18 
19 



24 

25 

26 I 

27 

28 

29 i 

30 



34 
35 I 
36 
37 
38 ( 
39 



43 



47 

46 
49 



52 
53 i 



56 

57 



11 



e 

O 

Q 
Q 



'I 

I 2 
3 

4 

I 6 
6 

\1 

I 8 

9 

,10, 

' ,"l 

; 2 - 

hi 

, Il4 

"I 
nil 

■i7| 

ie|_ 

■19 

bu 

21 
22, 
23 
24 

25 

(26 

27 

28 

29 

30 

3V 

32 

33 

341 

35 

36 

3?" 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

(8 

49 

50 

51 

52 

53 

54 

55 

56 

57 



-L21 



.JllL. 



IF NUT GENERATE 
IF NCfl/3 THEN 
-B£filii- ERRQtU. 



THEN STARTGEN* 



EtO34.EVC0J4NCRtlS»U2l6j; 

IF Nf.R>5 THEN TRNSFWpS C E C 1 3 ' E V [ 13 * (NCR+2 ) , [ 36 » g ] )i 

XJSD ELSE . __ : 

IF K*EVt03 .tia: 1«J="LIT" THEN 
IF J<0 THEN GO TO IX ELSE 
J£ CI«-C H E CKi>IEXTU&"'"'[ 36 M ?! 6J?) i.B_ 
BEGIN K*CC&NCDC9«27l2l3j 

CC*IF <I*CC.t3Q»33)*7 THEN 
CC*f T + l )[3 0}<t 5tali 



IF SCANC7) THEN GO TO LX; 

IF NE^CARD THEN 

BEGIN IF GENERATE THEN C V [ 9 J . [47 : 1 3 + 1 j 



03181000 
03182000 

. 03 ib 3.000. 

03184000 
03185000 

0318 .6H.Q-Q. 

03187000 
03188000 

Tri&N G,Q JXL L X E L JULO_3X&gJQJ0LQ. 

03190000 
03191000 
03192000. 



CC.C33S 153*1 ELSE 



BBB 

IF 

.EMDJl... 

IF MX 

BEGIN 

Qtsi 



«-e; nencaRd*false; nce+ncd; 

HEA|_CRESQ)M THEN TRNSFhDS(ENQ#CVt 1 13, 1 >; 



IF 
JlEJ. 



T.C3 

EE 
1X...I. 
CC&( 
SCAN 

»EST 



0:63=""" THEN 
r . C30 l 33*4i 

1 + 1) t30«45«33; 
(6) THEN BEGIN 



.IHEN.....CXUX33-- 15LUL1. ELSE. 

eet*est; go To lx end; 



END F. 
IF SC 



LSE 
ANC6 

NCR- 



J THEN 
IHUI 



GO TO 



IF NCR*1 AND NCR/2 AND NCR** AnD 
BEGIN ADJUST(fcVtO]#NCR>J-NCR); 
IX-MXIJ- GENERATE T M£U 



NCRX8 THEN 
NCR«-JJ 



03193000 
03194000 
-OJi^SjiQJL 
03196000 
03197000 

OTigannn 

0319900C 
03200000 

JU2..0..1DQQ.. 
03202000 
03203000 

-0.32040.0X1 
03205000 
03206000 
032X37000 
03208000 

03209000 
-03210000. 



BEGIN CC0+K.130: 183/ NC0«-K . [ 9 J 213 J STARTGEN END* 03211000 
END; LST*FST*0i 03212000 

IF GFIMERAfE IitkN FOX T I NCi C ?.t MfciiXl 32030X10 



IF JsNCR THEN GU TO LE* 
K«-"CHR M ; FST*LST4-0i GO TO Li; 
■-EAO. ELSE 



IF K*"CHR" THEN IF K/"WDS M THEN GO TO 

tvcoi*"spsi"; fst+o; edit ingc i*s )i 

EVC03«-"FQR w ; E0ITING(1j> 3); 



L2; 



IF J<0 THEN 
BEGIN 

IF BOOLEA N(J.UO »1J ) 



03214000 
03215000 

.032X6.0.00. 

03217000 
03218000 

...0j2.l90_0_g_ 



THEN 



03220000 
03221000 
03222000 



BEGIN 3223000 
IF 1*CEV[0J*-INF , L[(J*-J) . C 35? 53* J. [40:833 ) ,[ 12 : 6 3032^4000 
> 5 THEN 03225000 



TRNSFWD5(EvCU»lNF0[J,[35«5]f J.C40I83+1], 

CI+2). [36*9331 

EDITINGC1»I)J 



JJLL 



end else rereatfleldc-j); lst+o; go to l4; 
end; 

evc03»tk js* them 0&j[18:42863 else 

o&cj oxv 101c18j42«6hentiercj mod 1qh24j42.6 
e0itingc1mf us9 then 1 else 231 

if k »" h qs" th en 

begin ev[03<- m w0r0i>»; fst«-0; euiting(l#5> end else 
if kx«chr m then 

.BEfil N 



03226000 
03227000 
_Q122M00_ 



03229000 
03230000 
03231000 



#03232000 
03233000 
03234000 



IF K*(EV[0]«-E[03),C12»63>5 T 
TRNSFWOS(EVC13*EC13#(K + 2).i:3 
FST»o; EOITINGn>K)i 



THEN 

6*93); 



03235000 
03236000 

03237QHQ_ 



03238000 
03239000 
Q3 24Q 0QQ 



• • 



<r 



in 

u 

12 

13 

14 

15 

IS 
1,7 
|l8 
'19 
JSEOI 

21 

22 

23 

24 

2E 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

.34" 

35 

3<S 

37 ~ 

38 



41 

♦2 



45 
46 
47 
48 



49 
50 
5! 
52 
53 
54 
55 
56 



end; 
le! end transfer; 

REAL. _PJS.QC.ED U RE BlU-EAai AI£±lE_i;. 

BEGIN 



REAL 

LABEL 



LI • 



..__L_J___ 

ERRDHJ 

IF GENERATE THEN EQI T ING C 1 * NC« ) > 
-JJL-.U-_.DH RCrs \*UJAA!UlL2LL3&Xb2JULLUAl3L -UlEJsL 

BEGIN RELEA3TATEMENT*ERRSTREAMt-p; " 

J«-LFX; _FX«-NFXJ STRM*FAt.Sf; 
-TtBRACKFT( w ) w > , 1-i LFXtJL 

IF 1=0 THEN 

IF NXT,[„6S-3X";" THEN BEGIN i«--„; GO TO LI END ELSE 
-1+2 i 



03241000 
03-1*2000 

..___2.4._QJ1Q. 

032<44000 
03-^5000 

.___1___0__Q 



GO TO LE ENDi 

--i_Hjifcj.fi ue; 



LE* END 

REAL RRHCE_UR.E.. 

VALUE 
REAL 

ARRAY 



PROCEDURE 

_ V.A__UE_ 

REAL 



XF U/| THEN RElEA-TATEM£NT*-I; 
RELEASTATEMENT; 

,SaA.l£i_E.N-TXj_-_jLaJ£Q i_ 

j*b; 

J»B* 

aW2J_QJ.i. 

BEGIN 

SETYPECX,I); 

_______ 



BEGIN 



BOOLEAN 

ARRAY 
IF BOOLEAN(DEBUGN) 



x#i; 

J__U __ _ 

ECCJ8]; 

THEN WHlTECF0U#DUfi,"sETYPE«#NXT»X#I#NEHCD)i 

IF NQ+rNEHCL) AND NOT BM ________L_ ,_ T up N 

BEGIN 

NEWCD.t27»9J«-bOULEANcUB); BB«-REAL (NEfcCD ) , [ 36 * 9 3 i 
FND? 



03247000 
03248000 

._U____lQQj_ 
03250000 
03251000 
-Ql2i)2ia00 
03253000 
03254000 

.032550X10 
03256000 
03257000 
0325800X1 
03259000 
03260000 

. Q3J._1CIQQ.. 
03262000 
03263000 

J___t_A___Q. 



03265000 
03266000 
-Q__2 6 1 Q_ 
03268000 
03269000 

.Q3-70Q-U-. 



IF NOT GENERATE fHEN 

BEGIN STARTGLN; IF nD THEN C IV ALID+FALSE END; 

TRNSFHDSCE[Q]i-EV.O]>(NCR + lQ). t _6 i 9 ] J ; 

IF I/O THEN 

BEGIN EvtOJ*0_ ,, ;"Cl85^-:6 j; LST<-4; 
FDITlNGCl.l). 



_______ 



IF NEWCD AND BOOLE ANC I FThEN ED I Tl NG( 0, A VC J) "ELSE" 
LST«.FST*0i 



.___«__:__ . 

IP (I<-(EV[OJ*lNFULX.f 35.53/X. [40:83 J) ,C12»63 )>5 ThEN 
TRN<SFW L j-S(EV[i:),INF0[X,L35«- J,X,U0.8 J + 13* 
<I*2)»C36«93); 



032/1000 
03272000 
tn_73nnn 

03274000 
03275000 

QJ_7.6Q.QQ 
03277000 
0327.000 
0___L_9__I_. 
03280000 

03281000 
03282000 



EDITING(IM); 

EV[03«-0& ,, * M Ci8M2*6); lst«-4; 
IF X>6 THEN LOCALCX) ELSE 



03263000 
032B4000 
03285000 



EDlTINGClfl); 

I nS.lt faW.Mh. <. A t m t 

BEGIN EvCOJ*-"BQQLE"i EvCl ]*0&"AN( "C 1 »31 1 1 7 J ; 
EDITlNG(l#8); LUCALCX); 
EV[0 3«'0&")' , [18I42 4 6 3; EDITING. 1,1); 



03286000 
03287000 
03288000 



EDITINGUM?' 



END' EVC03*0- M ;»tl8«42«63; 

IF NO THEN , 

BEGIN B6»REALCNEWCD) _C27l93i ED IT INGCO* AVC 3 END ELSE 



03^69000 
03290000 
032910 0Q 



REAL 

ARRAY 

DEFINE 



EN D 



LST«-FST*0; 

trnsfwd3cev[03*e|.0],(ncr+10).[3&:93)> 
setype; 



03292000 
03293000 
03294000 



i ; 

BGGCOJlJ; 
BGN«*B00LEANCB3#; 



03295000 
03296000 
03297 000 



03298000 
03299000 
03300Q0Q 



■^i 



li 



12 
13 
14 1 



17 
18 



21 
22 
23 ' 

24 



27 
28 



30 



33 

34 
35 I 
36 
37 



44 







55 
56 



b 



J 

3 
4 
5 
6 
7 
8 
9 
10 



lu 
I kj 

1(> 
I r, 

lis 

- 

119 

! pi 

f" 
p" 

I (23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

4? 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



IF 



LABEL 

LABEL 
._ LA&£k - - 

LABEL 
BOOLEAN(DEBUGN) 



LCL1*L.2,L3> 
B0,B1>R12»B2,83; 

.£iuiXtSJk_&ai. _ 



LOJ 
Lis 



L2i 



LX« 



L3« 



BQI 



LX,LEi 

THEN WrITE(FoU#DBG> "STAT MT"#J#B)J 
-LE- BGN THEN TftMSf : X.Q. S C BGbt Q 1 » HNQ[ m . 1 ) l 



J«-CHLCKNEXT( 1 ); 
IF J = THEN 
-IE IFX = BL,K ThF.N 



_fifl_m_LJLj 



BEGIN 

IF NCR*2 THEN 
IF J»EV[03.U6U£]» "Slw THFN GO TO L2 E1.SF 

IF J="0I" THEN 

GO TO IF Cj«-SEIPOlNTtK)sb THEN S3 ELSE 
IF bQOibAMCjJ THL Ji.Ji£_iJ^E 



03301000 
03302000 
-.JUAUICLOO. 
03304000 
03305000 

03307000 
03308000 



03310000 
03311000 

JL23.L2JLQ.0_ 



IF J«0 THEN SO ELSE SI ELSE 
IF J«*DS" THEN 
GO. TO IF CJ»TR ANSFFH )»5 T HEN 5 _j FLSF 



03313000 
03314000 
Q3J15000 



IF BQOLEAN(J) THEN BO ELSE 
IF J = THEN SO ELSF. SI ELSE 

.-B£JU*UJ±XU_JiD_JJL4JU-Uaa 

IF NCR*5 THEN 

IF EV[03.[le^30J = "TALLY ,, ThEN 

GO TO IF CJ »TALL Y)85 THEN S_3_ ELSE _ 



_If_ 



IF 

JF 
_NlCJi=l 



BOOLEAN(J) THEN BC ELSE 
J=0 ThEN SO ELSE 51* 

IHXN _ 

IF EVC0].Cl8*24Js»jUMP" THEN 
GO TO IF CJ*JUMP0UT)*5 THEN S3 ELSE 
IE- M. Q OLEAMJJ THEN BO ELSE 



IF JsO THEN SO ELSE SlT 
GO TO IF C J«-EMR5TNEAM( j))sb THFN S3 El SE 

— IF BOOLEAINCJ) THFN BQ ELSE 



03316000 
03317000 

03319000 
03320000 

033240-00- 

03322000 
03323000 

-.JUIMQOjCL 
03325000 
03326000 

03328000 
03329000 
Q33JO,Q_OJL. 



IF J=0 THEN SO ELSE Si; 
END ELSE 
IF IFXsp F X + 1 7 THEN X T HE HQRQ "IF' 



03331000 

03332000 

-Q3333Q00_ 



GC TO IF (J*-lF5TArEMENT3 = b THEN 53 

IF BOULEANCJ) THEN BO ELSE 
11 J = THEN 30 ELSE SI ELSE 



ELSE 



IF 
GO 



IFXaUFX+21 THEN % THE WOHO "GO". 
TO IF (J*Q0T0)»5 THEN S3 ELSE 

IF BOQLEAN(J) THFN BO FLSF, 

IF JsO THEN SO ELSE SI ELSE 
IF IFX=DFX+28 THEN * THE kURD "RELEASE"? 
GQ TQ IF (J»HELLrtSTATEMEM)a!> ThFN S3 Fl SF 
IF BOQLEANCJ) THEN BO ELSE 
IF J- THEN SO ELSE SI ELSE 

IF TFXMFX THFN 



03334000 
03335000 
033 36000 

03337000 

03338000 

JLillSllflfl. 



03340000 
03341000 
03342000 



03343000 

03344000 
03345000 



BEGIN 

IF GENERATE THEN EDI TI NG C 1, NCR ) ; 

GO TO IF (J»CHECKNEXTC4g"l«L36lft2l6]n*8 THFN 



03346000 
03347000 
3148000 



ELSE S2; 

end; 

if j»2 then go to 



JJL 



03349000 
03350000 
Q3 3 5 1QO Q 



IF NXT.C42»63 B Q THEN LT ELSE StJ 



IF J*10 THEN 
GO TO IF Cj«-PARAMETER<IFx/j))s5 THEN S3 EL S E 
: IF BOQLEANCJ] ThKiM BO ELSF __ 



03352000 
03353000 
03354000 



IF JaO THEN SO ELSE SU 
IF NOT BOOLEANCJ) THEN SO TO U; 
IF J«1 Tkfm : 



03355000 
03356000 

033570QQ 



03358000 
03359000 
03360000 



12 
13 



16 
17 I 
18 
19 



23 I 
24 



26 ( 
27 
28 
29 ( 
30 



33 
34 
35 ( 
36 

37 



40 
41 I 
42 



47 I 
48 



52 
53 ( 



55 
56 ' 



• • 



£r 



s 

o 
Q 

I 1 



4 
6 

9 

to 

I 

12 

13 ~ 

15 
16 

I" 

18 

I — 

I °° 

21 

22 

| 23 

24 

25 

| as| 

27 
28 

30 

31 ™~ 

33 

34 

> 35 

36 

37 
| 38 

39 

40 

I 41 

42 
43," " 

► M 
45 ■■'» 
46 

I 47 
48 
49 

51 
52 
53 

54 



S. 



Bll 



BEGIN STATEMENTS/ GO TO LL EN_/ 
IF J53 THEN 
--BEGIN- — k Ii__ HURu "H^ih|W, 



TRNSFW0S(BGGcn#BQGC0 3#n; 



033610C0 
03362000 

..03JA3-aaa 

03364000 

03365000 

JL3_36j_Q Q.Q .. 



BLKCNT*Bl.KCNT + W 
IF DFlNE THEN 

U*MEJmim±Q)±lll3L&&hl± 51KJ_0_._fl 1_1 * S TRE0M7], 

BGGC03) E_SE 033_7oon 

IF N C 0=NC0-2 THEN 0336a2oS 

~MMimT V C ) > 1 » BIKCN .U PP. a, _j i _,_,__ i G_G LU* 6 G G t 03)EL _EQ 3 3 6 9 n q 
IF NCOsNCD-l THEN " 03370000 

gSl!II!i;^S Ut SJ' 1#BLKCN T#PCCU3,0,BG6Cn,Be«iCO]) ELSE03371000 
J__ N EN < FOU ( ) * l.__,_K___I__c yiiUailsJMUJjLflfiqifllli, JL_37_O_0 



releasecfou); 

if generate then ed ii ikg( 1/ ftck ) i 

J«-STATEMi:NTCCHLCk^XTr Urlc BGlij; 



.812! 



XhXN_.§.L3:ifi,I.LtBXLUiiizJjJ.. 



03373000 
03374000 

0_3J.75Q.0JJ... 

03376000 
03377000 

- -JU1ZMOJ3L 
033/9000 
O33aOO00 

..- ..JL3Jli_.__... 

03362000 
03383000 

IF NCO-NCD-2 THE, ~ ~ olf^OOO 

BGNEM3CFoU(O),0,BLKCN7,PFCtlU^0,BGGClJ,BGGtO])_LSEO3 3b600O 

-.--LE--N.CiJ.s_£iJ-X_IhiJy _ _____ _ Q-_i„7nnn 

BGNENDC FOU { ), 0* BLKCNT, p C [ 1 1 3 / q, B " GG C 13 > BGGC 03 T~eTs_03388000 

BGNENO(FaU(0)*O.BLKCNT,CVCll3,o,BG6tl],BGGC03); 033B9000 
--R FLF . SE ( FiHOJ nJao nnnn 



TRNSFWDS(BGG£03# BGGC 13,1); 

GO TO IF BQOLEANCJ) THEN BO ELSE Si; 

...EMI _ 

IF BGN THEN 

BEGIN ,*0; 

JLL-1±SLjS1M1111 j 

IF DFINE THEN 

HGNEND(FQU(0)#O#BLKCNT#STRtG#483M#STRtOM73* 
. B_3ii.I__l____J__£_. 



82* 
B3: 



BLKCNT*BLKCNT-li 
IF GENERATE THEN 
J>i£3LLJ____iiKXi 



EDlTlKG(l*NcH); 
ENDCMMT + THUF , ; 



J*CHECKNEXT(13; LFX*./ 
IF BOOLEANCJ) TH£N 
-fiO-Ifl IF_ Jx3 THEN B2 E L St 



ENOCMHT^-FALSEJ! 

ei; 



IF J = 2 THEN 
GO TO IF i*.NXT.[36:6] = ";" |mCn 
I F ____LL__lHj_J___.l EJ_S E_ I F 



_1E__L 



IF SCANC1F NXT,U~2I63«4~ 
H3 ELSE tiii 
»0. THEN 



Bl ELSE 

I - " » " THEN 



THEN 1 ELSE 0) THEN 



03391000 

03392000 

023 9 3.0 fi 

03 394000 
03395000 

-...- - -QjL_.?._J____ 

03397000 
03398000 

Bl ELSE 03 3 99000 



sot 



IF lFX=DFX+9 

GO TO 02; 
ENH LI sf fin T(,1. 



THEN BEGIN J«-6* GO TO Bl END; 



JLLL 



j*checknexT(d; 

if j»6 then go to lx else 

-IF J «0 THEN IF IFXbQFX+9 T^F N 



03400000 
03*01000 

03403000 
03«G400Q 
03405000 



IF J52 THEN 
BEGIN 
TF I____UL___l___LI 



j«-6; 



03406000 
03407000 
034QBOOO 



'*" THFN 



12.J 



IF BGN THEN 
BEGIN 
._ IF NOT SCANC1) THIfN 

IF GENERATE 
ENO ELSE 
BEGIN 



03409000 
03«10000 
341100.0, 



THEN EDITING(1,1 j; GO TO LO; 



03412000 
03413000 
034i4nnn 



03415000 
03416000 
03^17000 



IF H-B.C34IUJX0 THEN " ' 03418000 

BEGIN NCO^NCUi CCO«-CC; S£T YP E ( 1,0(1 1 1 1 1 3,1 ) END; 03419000 

U0 T0 BU ___ 03420000 



"^1 



n 

2 
3 
4 
5 



7 
8 
9 
10 
11 

12 

13 

14 1 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23< 

24 

25 

26 i 

27 

28 

29 % 

30 

31 

32 % 

33 

34 

35 f 

36 

37 

38 ^ 

39 

40 

41 I 

42 

43 

44 M 

46 

46 



47 
48 
49 

50 ' 

51 

52 

53 ( 

54 

55 

51 

57j 



a 



56 * 

9 



GO TO IT Uxl .[36:6 js»J» THEN Bl ELSE LX; 



rT 



la 
Is 

I 1 " 
1 

]rt 

|13 



o 
Q 



18 

is 

20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 



32 
33 
34~ 

35 

I" 

K 

p8 
(39 
40 



42 
«3 
44 
45 
46 
47 
(8 



•9 
50 
61 
52 
53 
54 



56 
56 



S3» 

LE» 'end'" 
INTEGER 

JtRBAY. _._ 

LABEL 
LABEL 

.LABEL 

LABEL 
LABEL 
LABEL 



end; 
end; 

. UL_J.a6 L±LEisi__fiJCL_T 

IF J*5 THEN 
IF BGN THEM BEGIN 
Jifi__lU._LXi 



J*2; GO 10 812 END ELSE GO TO BU 



statement; 
i,j,k,l>v*x'y*np/ 

- BGfiCOM UAL&UJLLi 

L1,L2,L3,L4,L5,L6; 

B1,B2,B3,B4#85,B6*8 7,B6,B9; 
GO.fi 1» fig.fi 3, r.a f fiVj 

pc, Pi; 

LX,LX1,LX2,LX3; 
_LE*LLx; 



034*1000 

034220C0 
-JL3JL23XHM. 
03424000 
03425000 

03427000 
03428000 
Q342VO0,q 



IF BOOLEAN(OEBUGN) THEN W R ITECFoU,DbG, "STREAM", nXtTTpT; 

IF DFINE THEN 
.BE^lN_L»£H£CKNE.XTCS_y GO TQ LX END; 



COMMENT 



COMMENT 



COMMENT 



COMMENT 



SKIP THE W QR D »s T REAM" WHI CF HaX'bTEN "AtHT7DTTC^|^EirBEF"o^r 

THE ENTRY TO THIS PROCEDURE* AND CHECK Th£ WORD "PROCEDURE"; 

IF B00LEAN(I«-CHECKNEXT(1)) THEN *~m_mu^_ 

LX; BEGIN 

-.0£_nEJJiELJLH£JL_iJmfl£lttJ__EL5i ___ 

IF 1=2 THEN CVL9].[36I63*ERX*1 ELS£ 
BEGIN ERHUK; C i [ 9 3 , C 3 6 J ] * 1 END; 
JiLJiUUU^J!iUJ_JLiaE4i_(iCL.IXJ_4iLU 



LFX*-NFx; I «-REAL (SKI PUNT IL (";")); 
IF NOT BOOtEAN(I) THEN 
JLE-JmL-SCAhUXJUiEh. 



lfx*i; 



LXil 



n . < 



IF GENERATE THEN Etll I NGC 1 , 1 ); % EDIT 
STREAMPROCEDURL^IF U3 THEN BL0CKC1) ELSE 
J£. R l lU l FANfn 1HFN JL_ELJS£ HuOCK fO^; r,n T Q 



03430000 
03431000 
— (L3iLa2£0.fl_ 
03433000 
03434000 

— 3*350 00, 
03436000 

03437000 
0343800 

03439000 
03440000 

OJ44_l.oao. 
03442000 
03443000 
-.Q3-.4iL4.O0fl- 
03445000 
03446000 

.... 03.4jtzo.aa 

03448000 
03449000 
-0-345.0000-. 



end; 

IF 1*0 THEN GO TQ Lx; 
-IE_1FXX6 THEN RQ Tn L x.j 



LEXj. 



03451000 

03452000 

.0 H^a.iOOQ 



CHECK THE STREAM PROCEDURE IDENTIFIER 
IMMEDIATELY FOLLOWING. THE PROCEDURE 
..lit ..AX-Ui- 



AND THE "(" MUST BE ALSO 
10 IS TEMPORARILY STORED 



CV[93,[36»6J«-ERX*-l; % FLAG ERROR ON PROCEDURE ID. 
LFX'NFX; I*CHECKNEXTC1); LFX*i; 
-IF 1 *0 T HEN nO TO i>: 



03454000 

03455000 

-CU4.5AAfi£. 

03457000 

03458000 

■-O34 t )VQC0.. 



IF IFX<RFX THEN GU TO LX; 
A[l3«-EVtO]$NcR[l»3i: 173; 
IF NCR<5 THEN J»0 Fl ftF 



TRNSFWDS(At2)#EVCn»J«.(NcR + 2r,[39»63); 
IF (I«-CHECKNEXTC44"(«£36I42I63))^8 THEN 
JL F NOT SCANM) THEM 



GO TO lx; 



03460000 

03461000 
Q34fi?nnn 

03463000 
03464000 

03465000 

03466000 
03467000 

: Qi46flnnn 



fORU „ nj IF GENERATE THEN EQITI NG( 1 , 1) * ~ % EDIT "C% 
FROM NOW ON AND AS LONG AS hljHlN T HE STREAM PROCEDURE, NO 

"Ay^ ^B^Inr^Tr?^ ™ E ° £FlNE ^'"E* 5 ^ T HFAT F P 
AJ> UNDECLARED INDENTIFIER, ********* IMPORTANT NOTE ********n*fl7o n nn 

;;;; T !l?r 3 , 8V SEtTING HLFXH tq "*"% "oix ?* procure wlilol 

■IflgM TlFlER TH ; i fNFflf*t ^jL_l£_lI.i ; pfcc i- AR En KITH A typf: liuii S 



03469000 

03470000 

03471000 



IF DFINE THEN GO TO LX; 

At03*-cj+i)uti»45*33; AtJ+s:3*o; strm*true; 

L FX+ I F Tf» THEN INFOFN TRY ( A. J+31 % F NTFR TYPn PRn 

ELSE NFX; ~" ~ 



03475000 

03476000 

.10.03477000 



START TO SCAN FOR THE FORMAL PARAMETERS AND ENTER THEM TO 
INFQf»t» 1 AS CJUJJLO HY fjAM ElM U 



03478000 
03479000 

Q34aQnnn 



6 
7 
8 
9 
10 

11 1 

12 

13 

HI 

15 

16 

<H 

18 

19 

20 ( 

21 

22 

23 i 

24 

25 

26 ^ 

27 

28 

29 | 

30 

31 

32 | 

33 

34 

35 | 

36 

37 

38 | 

39 

40 

-I 

42 
43 

44 ( 
45 
46 

«i 

48 

49 

50 fl 

51 

52 

53 M 

54 

55 

56 W 



LI! 
LX2J 



10 
11 

12 



IF (I«-CHtCKNEXT(l))XO THEN 

BEGIN strm*-false; 

iF._.Is5L_IidOLJL£lL-£Li£ 

IF 1/2 AND NOT BOOLEANCI) THEN 
IF GENERATE THEN EDIT INGC 1> NCR >; 

IF LFX<NFX THEN INFUREMUVE ( LF X ) ; 



LFJLtil fifl_JLQ. 



13 
14 
15 
16 

17 

18 

; - 

r 2 

23 
24 



26 
26 
27 
28 
29 
30 



31 
32 

33 
34 
35 



37 
38 
39 
40 

41 
42 



43 
44 
45 
46 
47 
48 
49 
50 



END 

IF 

If... 

8C1 

IF 



IFX/BlK ThLN L-U TO LX2> 

.GENFAA T E TH E N .EjUUiiOU a N.£ h .} JL 

3*EVtOUNCR[l»3lll7]j 

NCR<5 THEN 1*0 ELSE 

Sf. w p S ( Q [ UlLX-LLLlI*. UiCH 



BCO]*( I + l)&3ClUb»33> 
I«-INFOENTRY(B> 1 + 3); 
JX-( N P«- N P + 1. ? = 1 THLN IF 



UC I 



+1.2.1. C.3.S.I.6.; 
42 j*o; 



1U 

NOT TP_ J.HEN LFX±JLL 



IF CI*-CHECKNEXTC««."# ,, t36J«2»6J))»8 THEN 
BEGIN 
■■_ I£ N fll-SO A N CD-THEN. 



I 

END 
,IX_ 

IF 

IF 
I.F._. 

IF 

IF 
JF 

BEG 
IF 

-BE-G- 



F GENERATE THLN EDlTlNGCWl)/ GO 30 LU 

boolean a. x-ihtN^ox:. to lxzi- _ _ _ 



NXT.C36I6]*'')" THEN GO TO LX2; 
NOT SCANCl) THEN 

JEKNfcfl A TE-JilEA-Lnil I Nfi (.1 x±±i 

C l*CHECKN£XT(4i' [365 4 2:6 J)) 

NOT 5CANC6) THEN 

.NkL_&C AMAi-XhtN- _ - _ 

IN EDITINGC2#NCR); 



* 8 THEN 



.I*-CHECKNEXTCU* , C"_36»42!6J)) = 8 THEN 
Ul-IF NOT SCAKCli TK| 



i-E-N- 



.£ N D t 



IF GEN.EBATt THEN ED I T 1 N.G ( 1 , 1 ); 

GO TO li; 
LhiXi 



03461Q00 
03482000 

cuAa.3D.oa.. 

03484000 
03^85000 

_ULLGMflAfl.QIL 
03487000 
03488000 

-. 03.4 81.0.0.0 

03490000 
034*1000 

UM£2flflQ 

03493000 
03494000 

__.. 0344.5.0.0.0. 

03496000 
03497000 

_ ...04490000 

03499000 
03500000 

- 03501000- 

03&02000 
03503000 

_ --03504500.. 

03504100 
03504200 

350.4250. 

03504270 
03504300 

Q.3504400 



COMMENT 



SCAN FOR 
JNCLUPX-. 



VALUE LIST IN 
BCO 
IF 



IF (1 + CHECKN£XTC<U ,, ;"[36J42I6J ).*8 THEN GO TO LX2J 
B[53«-X«-Q; 

_J.F_. NOT Sc ANCl) THEN 

IF GENERATE T^EN EDI T I NGC X* \, 1 ); % EDIT "> 

VALUE DECLARATIONS AND MODIFY THE VALUE LIST 

ALL THE FORMAL PAR AMETE RS. ALSO CHA NGE THE 



TO THE REAL SPECIFICATION; 
3«-REAL.(MtWCAR0); TrnSFKDS C Bt 1 3* ENQ» 1 ); 
CI»CH£CKNEXT(.))XQ OR IFX*28 THEN 



BEGIN * NO VALUE IS SRECl 
IF GENERATE ThEN BC03«-0 
BEGIN 



FIEU ORIGINALLY. 
ELSE 



03504500 
03504600 

...-O3iQ.47O0- 
03505000 
03506000 

Q.150ZM.Q. 

03508000 
03509000 
03510000 

3b 11 000 
BC23*NCEi03512000 
03513000 



10 

R IGIN AI 



035X4000 

03515000 
03516000 



IF BOOLEAN<BCOH THEN 
BEGIN GENERATE*TRUEi 
TRNSFHDS(CltlO]*B[13 



CIVAIIQ*FAL$£J 
,2); LST»4; 



03517000 
03518000 
03519000 



SQlST«-BUOLEAN(X); 
TRNSF*DS(B[i]#ENO»l)i 8C2]«-NCE; 
TWNSFWDS(ENU»CniQ3*l)/ NCE-CI [ 1 1 J > 



03520000 
03521000 
03522000 



51 
52 
53 
54 



56 
56 



ENO ELSE STARTGEN; 

end; 

IF 1/2 THEN 



03523000 
03524000 
03525000 



TRNSFWDSCB[6 3*EV[03*C(BC5 3«-NCR) + 10),[39|6 
EV[C3*"VALUE"; FST«-0; ED I T INGC 1 * 5 ) ; 

K*HFX; GO TO L2; 



3); 



03526000 
03527000 
03528000 



END 

IF 

BEG 



; 

NOT 
IN 



generate then 
startqen; 



03529000 
03530000 
03531000 



10 

11 

12 
13 

|u 

'IS 
116 
.17 
,18 
(19 

HO 

\ 

r- 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 "~ 



3. 



39 
40 
41 
42 



• 



43 
44 
•6 
46 
47 
48 
49 
50 
51 



52 
53 
54 
55 



56 
P7 



IF BOOLEAN(BtCJ) THEM 
BEG Ifj TRNSFwDb(8[l]#tK0#l)i 
.. TRNSFWHSf CT[101*RC1 1.3); 

o; 



BC2]«-NCE/ 



L2* 



EM 

end; 

■EDITIN»(1»NCH)J * THE WfiRD "VA L. . .F*, 

K*HFX; FST«-0; bU TO L2i 
DC BEGIN 

FVC Q]«-0& w *"Eia»»?tfi]; 



03532000 
03533000 

...aaiMOQa 



03535000 
03536000 



FST»<ti ED IT lNfidM ) !. 



E V t ] ♦ ( P* 1 NF 1 X*K . [ 35 1 5 3 r Y ** . £ 4 Q \ 8 ] J ) ; 
IF CP«-P.C12I63)>5 THEN 
TRNSrwnstE\/£i3,lNimry.Y+i liS£±2 JU-l3£JJLLLi 



03538000 

03539000 

JLaSJLftflLQjQ. 



EDlTlNt(i/p); 

END UNTIL (K*K-INFDtX#Y-l] t [25i8])<(lF 
FLSE LFX)?, 



03541000 
03542000 



TP THEN LFX+1 



EVC03*04";«C18I«2I6]; FST*4; E0ITING(1#1J; 
IF B00LEAN(B[G3) 1 HEN EDIT ING CO* AVC ) ELSE LST«-FST*0; 
-LE—U O..QB IFX*?8 THFK 



03544000 
03545000 
03546Q0Q 



L3I 



begin 6C43«-v+c; infci3«-bb; gc to l« end; 

EVC03*"REAL "i ED IT ING C 1 > 4 ); 66K<-TRUE; 
- -IF- Cl.t-C-H.LCKM E X T C jJLl&jJ- lh£JtL.Jiil £0_LX2J 

IF GENERATE THEN ED I TI NG ( 1# NCR ) i V*V + 1J 

INF0ClFX.C35|5]#Ux.C40lfi]-t3tCll3]*i; 
-±£-Ml±.QMUXLkVajJLVl^LL3&±A2J bl > left THE^ 

BEGIN 

IF NOT SCANC1) ThEN 
LE-.&LN F R A T E T H E.N-Xal-TJ.Jv-G.LLt..Lli._,-G.Cl--Xfl..-LJ L 



03547000 

03548000 

.03549000 



end; 

if 1/2 then go <tq lx2; 

.lf_Jl XT .[36» 63* ,, J w TH EN G Q _XQ_kX2J 

IF NOT SCANCl) ThEN 

IF GENFRATE THEN EDI TI NGC 1 * 1 ) » 

IF B00lEAN(B[03«-REal<NEWCARD)) J_h EN 

IF GENERATE THEN 
BEGIN 

IF CIV ALIU THEN EDI TI NGC Q»a VC )} GENERAT E+F A LSE; 



03550000 
03551000 
...0-i5i20-00— 
03553000 
03554000 

03556000 

03557000 

-0 355.aOCLQ-.„- 

03559000 
03560000 
0l56t'0flfl_ 



03562000 
03563000 
03564Q0Q 



enc; 

TRNSFWDS(Btn»ENG#l); Bt2]«-NCE; 

Y»REAL(GENEKATE) j GENERATE* FALSE; X<-CBx; CBX*- 1 ; K<-B B; 

i*checknextci); cbx*x; ge"nerate«-boolean(Y); 
infcu^bb; bb+k; 

I F BOOLEAN(I) THEN 



comment 



ADO TO THE 
FORMAL PAR 
IN T HE PQI 



IF 1X3 THEN GO TG LX2; 
IF NH<V THEN GO TO LX2; 
IF Nps(b[41»V) ThLN GU TO 



03565000 
03566000 
03567QQ0 

03566000 
03569000 
0357000 
03571000 

03572000 
03573Q0Q 



L5> 



03574000 
03575000 
03576000 



procedure the pointer specification part, all the 03577000 

AMETERS WHICH ARE NOT CALLED BY vALUE WILL BE LISTED 03578000 
NT ER LTST1 : . 03579000 



IF 1X2 THEN 

TRNSFHoS<B[63>EVtO]#((B[53*NCH> + lO),[39l'6])J 
IF GENERATE THEN BCO]»0 ELSE 



BEGIN 

IF 80QLEANCBC03IREALCNEWCARDU THEN 
BEGIN GENERAT E »TRUEj C I VALID»FALSE; 



03580000 
03581000 
03582000 



TRNSFWDS(CItlO],faCl]»2); lst*«; 
TRNSFWDSCBU3'EN0MJ; 6[23*NCE; 
TRNSFWpS(ENO> CI [ 103>l); NCE+CIC113J 



03563000 
03584000 
03585Q0Q 



end else startgen; 
end; 
if npxv then 



03586000 
03587000 
03586000 



03589000 
03590000 
Q33 9 1PP0 



18 

19 



24 
25 
26 I 

27 
28 
29 ( 
30 



33 
34 
35 | 
36 
37 
38 I 



44 \ 

46 



49 



55 
56 ' 
57, 



• • 



■; 

3 
4 

5 
6 

7 

8 

I s 

10 
11 
12 
13 
14 
15 
16 
17 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 



im 



L5> 



BEGIN 

EVC01«-"P0INT"; E.VC 1 J«-0&"ER"U 137 HI 31 

E-SXfcOi , 

ENO* 
A[J*£(BC3]*NP 

Arni. rfli aotJA. 



)*7i,t36l9]+A[03,C« 



o.ai3*o; 

I N TH F ENTR Y. 



03392000 
EDITING( W);03bV300Q 

_... CU-5^ .4 OQ 0. 

033*5000 



03396000 
359 700.0 



K«-HFX; V«-NP-V; NP«-NPx6 + 3; 
DC BEGIN 

BEGIN 

IF L*(EV[ 



0] 



INF0CX,Yj).[l2$6 
» INFOtXtY-AXlxX 
EOlTINGll'Di 
EV[03*0&(IF V*V-1»0 THEN 
FST»4; PUTTING CI Hli 



3>5 THEN 

L + 2 3. C 3916 J); 



03598000 

03599000 
-XilE^XU60.000.0 
03601000 
03602000 
-0-3-6.0 3000. 



";" 



ELSE 



%" U 18 I 42 i 63; 



if v*o then editingco* avc); 
end; 

F NP* NP-6<3 TH EN BFflll^ NPtftS) A| J«»J» 1 1 «.fl pNOi 



-I 



.£JQMMEAIt 



CHE 
NOT 



CK-Xli 

HAVE 



TRNSFBTSCAt 
END UNTIL (K*. 
E-..»N-0-BG-"BEGlAlV 
QNE» ADO UNE T 
NP*BC3i; V*8 
--LE— L&l- THEN 



J3*H'NP>1>3); 
K-H f C25l83X(IK TP 
IF THE ORIGINAL a 

o it; 
£43; ioo; 



THEN LFX+1 ELSE 
1 KEAM PWUCE C 



03604000 
03605000 
.flL3AQi.aO-0. 
03607000 
03608000 

03610000 
LFX3/03611000 
5_siaL6illlQfl_ 
03613000 
03614000 
03-615000 



BEGIN 

IF B 
. — QgSxl 



OOLEAN(QCOj) THEN 

h- 



IF GENERATE THEN 

BEGIN IF CIVALID THEN EOlT ING£ 0* AVC )> 
GFN F RATE te FALS F i . 



03616000 
03617000 

03619000 
03620000 
3621000- 



tND* THNSFWUSCENU,b[13> 1 )i 
X«-NCE» NCE*-bl2j; Y*rEAlCnEW 
TRNbFWDS(lNFE03*CVC 11 J* 1 )>TR 



03622000 
CARD)J NE.CCARO*TROE; 03623000 

NSFWP S( C VC UJ>E N Q M > J-Q362 4Q 00 



OU 
NE 

.EK13JL 



TPUTNEWCX); 

WCARD*BUOLEAn£Y); THNSFwDS£CVC113»lNFt0 3#l>; 



BLKCNT*8LKCNT+1* 

IF DFINE THEN 

B GNENDCFCJU(O), 1»B.LKCNT» S TR_C_0 * 48 3 > U STRIP* 1 7 3 » 



03625000 
03626000 
03627000 

03628000 
03629000 
03630000 



BGGC03) ELSE 
IF NC0»NCD-2 THEN 
BGNENDtFUU( O) > 1»BLKC N 1 , PPCJJJ. J 



03631000 

03632000 

»0>BGG[l3»BGGt03)ELSEO 36 33000 



IF NCOsNCQ-1 THEN 03634000 

BGNENDCFOUCO)* 1*BLKCNT#PCL 113*0' BGGL 13>BGGC03) ELSE 36 35000 
BGNEND(FriUCO)' U BLKCNT > CV L 1 1 3 > Q* BGGC 1 3 * BGG CO 3 )> 36 36QQQ 



RELEASECFQU); 

IF NOT B0ULEAN£B[03*REALCNEWCARP)) 

BEGIN 



THEN 



03637000 
03638000 
03639Q0Q 



IF NOT GENERATE 
EVtO]«-»bEGIN"i 
ENP; B B»l N F [lJ i 



THEN STARTGEN' 
EDIT 'ING(l'b); 

GO TO bs; 



03640000 
03641000 
, 03642 000 



50 
51 



END ELSE 
BEGIN 
IF I« Q 



AND I FX«UFX*a5 THEN 



03643000 
03644000 
3645 000 



52 
53 
54 
55 
56 

el 



BEGIN % THIS IS a FORWARD 

IF bUOLEAN(BLO] ) THEN 
B EGI N 



DECLARATION* 



03646000 
03647000 
03648QOQ _, 



IF GENERATE THEN 
BEGIN IF CIVALID 
GENERAT£*PALSS; 



THEN EDITINGCO.AVO; 



036490.00 
03650000 
03651000 



# • 



# 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 

": 

12 

,,- 

14 

16! 
1 7 

|18_ 

Il9 

to 

21 

22 

23 

24 

25 

26 

27 

28 

29 

JO 

31 ~ 

32 

33 

34 

3S 

36 

37 ~ 

3d 

39 



40 
41 



42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 . 

57 



END; TWNJiF«DS(ENO#BtlJ»l)i X*NCE; NCE«-Bl2J; 
Y*HEAL(NEWCAR|3)J kEWCAHD*TRUE J 

_ uibiiiLnnsdNF rnimvnuxUi 

TRNSFWOS(CVtin#ENO#l)l OyTPUTNEW CX ); 

newcaRd+boqieancy); 

-END J 



03652000 
03653000 
■0 365Aqao.. 



03655000 
TRN5FwDSCCVCin#lNFC0]# 1);03656000 

0365ZQ00, 

IF GENERATE THEN 03658000 
BEGIN TRNSF«QSCEV[0J*BC6J* CB C51+10) .[ 39163 )i 03659000 
E r >TTlNG(U/)i CU66000a 



end; 

if ( j«-checkne.xt{4««;»[36*42*63))*8 then go lx3; 

IF NHT ST.AMf 1 ) THFM 



03661000 
3662000 
03663Q00 



:OMMEN|T PROC 
_ THE 
Bit 



B2l 
LX3? 



IF GENERATE THEN EQ1TINGC 1# 1 )j GO TO IE; 03664000 

END; 03665000 
IF BQUL EAN(B[03 ) THEN F [)TT iMGt 0> AVC 1FLSE LST + FS T »0 ; Q 36 66npn 

EVC0]*«BEGIN»; ED1TING(1»5); 03667000 

IF BQOLEANCBtOn THEN EDIT INGCO* AVC) 1 03668000 

_ J±±l— M Al±m i BB»lNF£ MJ GO TO B8i 03669000 

£^C* 03670000 

ESS THE LABEL DECLARATIONS IF THERE ARE ANY* AL$0 MODIFY 03671000 

IJQJLAj^JB^JiJLA&AIJmiLJ n 3 672 QQ Q 

IF X*»'LABEL" THEN 
BEGIN 

IT G ENERATE THEN EDIT lNG( 1» NCR) J 

K*LFX; STRM«-FAL&EJ J+uCNTC ARE ( 1 ) ; LFX«-K/ 
IF J/8 THEN 
-If — U±EB RSTRFAMC-j)?«i _.IH£&. 



036/3000 
03674000 
03675000 



BEGIN STREAMPROCEDURE«-li GO TO LE END ELSE 
GO TO IF 6QULEANCJ) T HEN B7 ELSE 04; 
-I£-_XJ»CM££KNEXT(4& w # H C36:4gi6Jnsfl Tn f N 

BEGIN 

IF NOT SCANC1J THEN 



STRM«THUE;0367600Q 

03677000 
_JL3AZflflOH. 



03679000 
03680000 
0.1661000. 



L E GFNfRATF IhLh FnTT T kGC 1, 1 ) ; 

end; 

IF J«2 THEN 

I F NXT.[36»6]s " J" T HEN GO TO B4J 



Gfl rrj h2,; 



03682000 
03683000 
Q36 840Q JL 



83« 



end; 

IF NUT GENERATE Then STARTGEN* 

EV [0 3«-"P0INT"; EVCl3»0A w FR w r J <3/m " 

IF J + CHECKNEXTCn*0 THEN GO I U LX3; 

IF IFX*BLK THEN GO TO LX.i; 

IF fiFNFRATF THFN £n T T I Mfi ( 1 . Mr h ^ : 

INFC13*EVC034NCRCI«31I173; 
IF NCRS5 THEN J*U ELSE 

THNSFW Q SC TNFC ?1f ir VT I I r . !«■ ( NCR t * ) » f, =1 9 . 6] ) . J 

INFC03*(J+i)&3tll45«33; INFC^+2J+0; 

J*INF0ENTRYCINF*J*3); l*L*U 

IF CJ»rHFCKNFXTf4tt*',*T^6iagia3 n«fl TkfN 

BEGIN 

IF NOT SCAN(l) THEN 
I F GENFHATE THEN FDlTlNflM.m fin TR 



JilLJJLJjaj. 



03665000 
03686000 
-Ql^ZO&Q 



UUUMLLtHL 



03688000 
03689000 
03690000 



03691000 
03692000 
o?693nnn 



036V4Q00 
03695000 
0369600Q 



03697000 
03698000 
or699nnn 



end; 

IF J»l THEN GO TO LX3> 
IF NXT,t3ftV6]»"?" THEN 



3J± 



03^00000 
03701000 
037Q20QQ 



03^03000 
03704000 
-03705000 



84: 



BEGIN 03/06000 

IF NOT SCAN(l) THEN 03707000 

_ TF GENER ATE THEN BEGIN T«-Oi EnTTIMflfl.ll Fls.n F t SF O.V/Qflnnn 



B5I 



T*U 

IF NEWCARU THEH 

TF GFNFRATF THEN 



03709000 
03/10000 

03/nonn 



2 
3 
4 
5 
6 
7 



9 
10 
11 i 
12 
13 



17 

18 

19 

20 | 

21 

22 

23 ( 

24 

25 

26 ( 

27 

2S 

29 ( 

30 

31 

32 i 
'33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 < 

42 

43 

44 { 

45 

46 

47 i 

48 

49 

50 { 

51 

52 

53 I 

54 

55 

56 f 

57 



^1 



• 
• 



13. 

4 r 

si 

6! 

7 I 



10 

11 

12 

13 _ 

14 

IB 

16 

17 

18 

19 

20 

21 

22 ~ 

23 

24 

26 

26 

27 



28 

I 29 

30 

31 
| 32 

33 

34 
I 35 

m 

37 ~~ 

36 

39 

40 

41 

42 



43 
44 
45 



46 
I 47 
48 
49 
i 50 
51 
52 
53 
54 
55 
56 



THEN EDI?'lNGC0>AVC)i 



BEGIN IF CIVALID 
GENLRATE*FALbL; 
■ EMLi 

8C03«-KEAL<NEWCARD); 

Y+HEALCGENERATE); GENE.RATE*FAISE; X*CBX; C8X* 
-KtbBi J.»C,hECKNEXT Cl) J HlfiJL*flj3 £_ BB»KJ 



•i; 



Jfi.f 



C0X*X/ GENERATL4-QU0LEANCY )i 

IF J=I THEN GO TG 1X3} 

.-lE-JXfl-I HE N G O HLBZi..- 

IF NCR^S THEN GU TO B7; 

IF X«.EVC03.[18;30J*"LABEL" THEN 
IF X*"L0CAL" THEM GO T_Q_ B7i 



CUTPUTNEW(NCE)' 
TRNSFWDSCBCU'tNO'l); 
-Cfl-TO BU 



bc?j«-nce; bb*b[43 



end; 

b7» if j*2 then 

. . . T.BN3FWDS c B C 6 ] > E V [ I > ( ( R r S 3 »N rh >,t.lQ_L^L3QlMj i 

IF GENERATE THEN B[0]«-0 ELSE 
BEGIN 
I£..iiOiJ.L£ANLB_LCLLL-JJiEji..._„. 

begin gene8ate«-true; c i val iu~*false; 

TRNSFWDS(CltlOj,BIl]»2)i LST*4; SQ1ST«-B00LEA N 

- J R k$! MQSd&UliLhOAXU. Be 23 <-nCE; 

TRNiSFrtob(ENO'Cl[lO]*l ); MCE*CIC11 '.}} 
END ELSE STARTGEN; 

EA0J _„ _ 

TO THE PROCEDURE THE POINTER DECLARATIONS OF "01" I "SI 
EVrOH"POlNT"; EVU3*0*"ER"tl»37lliJj EDlTlNGU* 

- LSLLSLl + lLnLtAULl TRNSFCHRtE Vl lJLtiLYJO 3 #0.2,1 ) j 

FST*0; EDITINGC 1*6); 
IF BOOLEANCBCO]) THEN ED I TI NG C 0, AVC ) ELSE LST<-FST*0 
_COMM£N.X . ADD JO THE PROC EDURE THE HEAL ECL AH AT j UN QF "TALLY 'S 



:OMMENT ADD 
88! 



03712000 
03713000 
...0.31 1.4.00.0... 
03715000 
03716000 

JUJJJ.QO.D.. 
03718000 
03719000 

..Q.3.7.iLQO.0_Q 

03721000 
03722000 
0.27.2. l.Q_OQ_. 
03724000 
03725000 

-03-L26.00-0 
03727000 
03728000 

.JLiZifcflflfl ._ 
03730000 
03731000 

.017 12 C.Q..Q . 
03/33000 
(T);03734000 

JllZJSfljQfl 

03736000 

03737000 

03-Zjaooo 

03/39000 
03740000 
517 4JQM 



7j; 



EV[0i)«.«REAL m t 

Evce^'STALLY"; 

JLLJllhSkLlAAll. 



tt)ITINGCl,4); 
TRNSFCHR<E-Vcn»EVC0)#0#2#l)l 



IF BUOUEANCBCO]) THEN EDI TINGC 0» AVC > "ELSE LST*FST 
COMMENT ADD TO THE FROCEDURE THE ARRAY DECLARATION OF "L0CALC*3"; 

Slill*2it±LlL-lt -THEN L ELSE L-l U^ 



♦ o; 



EVt03«-"A«RAY M ; 
EVt03*"LQCAL"J 

EVt03»"[Qt ■ «; 

IF EVC1J-0 THEN 
BEGIN X4-K4.5; 
- 00 BE1UN 



EDITINGC1*5); 

£DITING(1,5); 

JLfliTlNfili*J.)_i_ 



fst*o; 
FsT*4; 
.. F5 T»EVCQ3»OJ 



03742000 
03743000 

03745000 
03746000 
.0.3 74Z.Q Q.Q.. 
03748000 
03749000 
0375Q0QQ 



EV[03«-K«-1 ELSE 
IOCvHrCX#EVfl3'3»b»0)J! GO 'TO B9; 



03751000 
03752000 
03753000 



B9I 



K*K-i; X*0&X£18524>243; 
END UNTIL X.C18»63X0; EVC03*X; 

..end; . 



03754000 
03755000 
03756000 



JOMMENT ASSI 
AND 

PARA 

GOt 

G 1 : 



EC IT INGC 1#K 3 ; F 3 T * 4 ; 

EVC03«-"3; «; E0ITINGC1#2); 

I F BOOLLANCBrQ]) THEN EniT tN(i(Q» aVC ) ELSE LST+FST 

GN THE INDEX OF L0C|LC*3 TO ALL THE VARIABLE IN INFQC*, 
GENERATE THE ASSIGNMENT STATEMENTS TO ASSIGN THOSE FORM 
MET ERS WHICH ARE CALLED BY VALUE INTO «LQCALC»3 W 1 



03757000 
03758000 
03759000 



*3» 
At 



T«-R*0; K+HFX* 3B«-Bt43; 
IF (NP«-l)XO THEN 
DO BEGIN 



03760000 
03761000 
03762 000 
03763000 
03764000 
03765000 



IF <PMNF0[X»KpC35i5 3#<Y*k.G«QI8 3)»IJ).C1I3]«1 
IF BOOLEAN(R) THEN 
BEGIN 



03766000 
03767000 

03766000 

THEN03769Q00 

03770000 
03771000 



T< 



i 

€ 

i 
i 
i 



21 
22 



27 
28 
29 ( 



34 

35 ; 

36 

37 



41 ' 
42 



45 



m 



49 

50 ' 



55 
56 
57 



# 



2 

3 



/ 
8 

9 
10 
VI 

; 

12 

r 
■is 

',4 

."J 

It*! 
I7l 

ia| 

l19j 
20, 
21 
22 ' 
23 
24 
PS 
B6 

°- 

28 
29 
30 

31 ~ 

32 

33 

r[ 

3B| 

3e| 

H* 

(38 
M 
40 
41 
42 
43 
44 
45 
46 
47 
48 
W 
50 
51 
52 
53 
54 

55 
56 



EV[OJ«-"LGCAL"i EVC13«-0« ,, ["[1»«3»53J EDIT INGC 1#6) 

IF TaO THEN Z*EV[03«-1 £ l. S t 

BEGIN Z »EV[0 J»fr; IOC VKT Cfc. V CO ]» T> 3»5» 0)# GQ 



G2t 



DO BEGIN 
JEJiQ-JWIlL. 



EVCO]«-04tVCOHl8l24»24]| 
tV C0J.C16 »63/0; 



END* EOITINtiCUZ); 
1NF0CX#Y-13,1 JI33*5; 
_L NF0[X*Y + P . t40»9JJ«-E V[fllH*£12i42 i6 3j 



'03772000 
03773000 

/ 3 UADJDJSL 
03775000 
03776000 



JJiEMlLtl+JLAAO. 
EVtQ3«-"J* "J 
IF U*<EvC03«-I 
TRNSFWDSfEVtlJ 



03778000 
03779000 
3760 000 



FST«-«; E0lTlNGCl#2)i 
NFUtX*YJ).U2*633>5 THEN 
»INF0[X *Y+lJ»(Z+2) .C39t6})J 



03781000 
03782000 
03783000 



EOITINGU'Z)' 
EV[03«-0i";"[l3 

T+T-li NP»NP" 



I42«03; EDIT INgC 1* 1 >f LST«-FST<-G/ 
u 



.63.5 



END ELSE GQ TO i» 
IF P.Cl»3J«3 THE 

RL&m UiTOLXAir. 



03784000 

03785000 

..Q37 86Q QC 



3 ELSE 

N 

n.[in] fp.linu jii 



IF 
BEG 

~G 



G4I 



T*T 

NP«- 
£Nfl-L_ 



t=o then *■* 

IN 2*EVC03* 
D_fl£iiti 

z«-z-i; tv 

ND UNTIL EV 
■tXf Y. 
♦ C IF R*Q TH 

NP-li 



X25JL8-U 



END UNT 

IF CR«-R 

-BFGI N T 



il npso; 
+ n*i then 

» f.Wp»at33 > + 



03787000 

03786000 
037B9nnn 

03790000 
;03791000 

03142000 

03793000 
03794000 
...Q3-Z 150O0. 
0379600C 
03797000 

03l-9.iiOOO... 

03799000 

03800000 

ULL-UL THEN .1 ELSE T"1)l GQ Gl END j038(J 1 OOP 



EV[03«-i ELSE 

5; lQCVRT(tVC03>T#3*5#0>; GO TO G4 

tOJ*04EVt03Ll6*24*2<*l; 
tO]ai8»63XOi 

ab*_c h ;iL3.iA t y r a.uui 
em -1 else n; 



G5S 



IF R*2 THEN 

IF TP THEN BEGIN NP»U GO TO li l ENUJ 
-MP» B E3] ; 



IF BOOL 
BEGIN 
JUtULL 



EANCBC033 .T 
EDITINGCCA 
; NHE«.Brg} ; 



03802000 
03803000 
03 8Q40 Q0. 



HEN 

VO* TRNSFWDS{ENO#BCU#ni 

fct_Jt__BJliIflliEJ 



TRNSFrtfjSClNFtOJ/ 
CUTPUTNEW(X); T 
GFNFRArr»FALSEi - 



CV[113»1); THNSFWDS(CV[113*ENU, U; 
RNSFWDS(CVCU J#INFC03# 1)' 



03805000 
03806000 

_ 3802000.. 

03808000 

03809000 

...1138-100.00 



END ELS 
BEGIN L 

IF J_L. 



ST*FST*0; TRMSFkvDSCEN0'B£l3*l); NCE*B[23 ENOi 

XHEU 



POi 



PI* 



TRNSFWn 
IF (J<-S 
J_E 



S(EVtOJ»at6 

TATEMENTC J* 
AlfTPHl Mb 



03811000 
03812000 



BEGIN S 
IF NXT, 
IF NOT 



TREAMPROCEO 

[36*63*"*" 

BQOLEANCI) 



3* KNCH*BC5J 3 + 10 3, C 39 I 63 )} 3814 000 

IF TP THEN hEAL(I»3)*LFxC3*H35.U3] 03815000 
M3 FLSF BXAU I"3)f B(iG> 1/2 THEN _ 03816000 



URE*ERRSTREAMCj))'aO TO LE END; 03817000 
THEN GO TO Pi! 03818000 

THEN : Q3819QQQ 



BEGIN 
IF GE 

BEGIN 



NERATE THEN 
IF CIVALIP 



THEN E0IT1NG(Q*AVC) END ELSE 



BEGIN STARTGEN; EDI HNGCO* AVC 3 END; 
evC03.Cl8ll8 3«- M ENO«; EDIT I NG( 1,3 3; 

e n d; ;■:., ■. __ 



03820000 
03821000 
03822QQQ . 



J-EJL 



IF NOT SCANC13 THEN 

IF GENERATE THEN EDI T INGC 1 * 1 )'» 

INF0REMUVE(LFX3; lfx»i; strm»false; 



03823000 
03824000 
38 g 5Q0Q 



LEXI END 
REAL PROCEDURE 



i*inf0entry(a.ae03,c4»83>; 
streamprocedube; 
filename; 



03826000 
03827000 
03828000 



03829000 
03830000 
03831 Q Q0 



h 

3 



4 

5 



7 

!■■• 

9 

10 

I" 
12 

13 

15 

16 

1B 

IS 

21 

22 

I a 

24 

25 
) 26 

27 

ZS 
I » 

30 

31 ~~ 
I 32 

h- 

34 

35 
36 
37 
38 
39 
40 
41 
42 
43 ~~ 



♦6 
46 
47 
48 
49 
50 



51 
S2 
53 



54 

55 
56 



COMMENT 



I 
XU 

I 
J 

1 ....... 

I 
t 



THIS PROCEDURE 

.T.H£B£_JkHE ANX*. 

VALUE OF 



ADDS A "/'» 
RESULT! 



IN BLTWEEN THE T^u SYMBOLIC FILE NAM^S 



Ot 

n 

-21- 



STOPPED AT AN ABSOLUTE RESERVED 
STOPPED AT END-OF-FlLEf 
STnPPFn AT A njJUJ..-Qfl-A„SR££ 



WORD, 



3: 

5: 

3! 



STOPPED AT "UEGIN". 
STOPPED AT "END". 

-SUJl^SSJ^LjLL.JiBJJ.CX.SSiJJ_ 1 

--- — — - J. C. PAO 



CTFR f 



..0383*000 
803^33000 
i.Qj.8jA0XU). 
JO3835Q00 
J03836000 

-i03H^700Q.. 



-BEJLI-N 

It 



-IE 



REAL 
LABEL 

L0« 



L0#L1»LX*LE* 
-lijLN xHITEfFOUfPd. 



Lit 



LX» 
LEI 



IF (I«-DQNTCARE(1))X8 
BEGIN 
I£_Ufl_jMEa. 



then 



j*£I.l 



LO ELSE 

LOJ 



IF IFX=DFX+13 THEN GO TO 
IF IFX=DFX+15 THEN GO TO 
--..£lLXNA^iL±Xi.„__GJL_La_J.£X_„ 

end; 

IF <I«-CHECKNEXTU«.";"C36j42!6J))*8 

JiEGJJJ 



if not scAN(i) then 

IF GENERATE THEN EDITINGC l» 1 )J 
4UUXJUM£jtBJL _.(iO_XI3_J^jL_ ._ 



END* 

IF BQOLEAN(I) THEN GO TO lX) 

JX-I/? TriFN 6fl XL1,UJ— _ 



IF I<-NXT,i:36;bJs""« THEN 
BEGIN STRING/ 

lE_alli2L£AMl»ChLCKNEXTfl^ Th^ G Q TO LX 

IF 1*2 THEN 



IF NXT,t36:63a ,,,, •« 
.IF DFINE TH EN 
BEGIN 

BEGIN 

CCCKCC; 



THEN 



if l l f < o then st h [ o » o~J ~,i <ir * ll «• 1 t n b els e 



N_co*iMto; 



IF NOT GENERATE THEN STAhTgEn; 
EVC03*0*"/"L-J8I 42l63i EUlTlNG(lM); 
.. STR I NG; 

end; 



$03838000 
103839000 

„ HL3JL4S.Qfl.flL. 

05/06/68 •"•""-"•" J03641000 
...».;03842000 

4XJJU3O0O. 

03844000 
03845000 

. __ £U8_4.6.aQ.Q 

03847Q00 
03848000 

— osBAftaaa. 

03850000 
03851000 

- azja&iaaa.. 

03853000 
03854000 

03856000 
03857000 

-Q3.ai.aooa 

03859000 

03860000 

.-04461004 

03862000 
03863000 

aae.Mo.Qfl 

03865000 
03866000 
Q 3. 6 6.7 05 Q 

038O8000 
03869000 
OiJi.OOQO_... 



THEN 



GO TO 

end; 

IF Is"c" THEN 



LI, 



GO 
IF 

GO 



TO IF CI*BBACKETC")"7I7)^4 THEN H ELSE LX; 

I»*C M THEN 

TO IF CI»BaACKET(."3",i))»4 THEN Ll ELSE LX; 



03871000 
03872000 
03873000 
03874000 
038/5000 
03876000 



IF I»", 
BEGIN 
IF NOT 



THEN 

Scan(i) then 



03877000 
03878000 
03&79000 



IF GENERATE THEN EDITInGC 1* 1)1 

end; 

IF HQJ SCANCIF NXT,t42t63»4 THEN 
IF GENERATE THEN ED I TINGC 1 > NCR ); 
FILENAME*IF 1»0 THEN 2 ELSE U 



go to lo; 
1 else 0) then 



03880000 
03881000 
03882000 



GO TO Ll 



03883000 
03884000 
03885000 



end filename; 



03886000 
03887000 
03888000 



REAL PROCEDURE DECUARATION(BGN); 



03889000 
,03890000 



•~)« 



ii 



16 



18 
19 



23 ' 
24 



27 
28 
29 < 

30 



34 
35 I 
36 
37 
38 ( 
39 



40 



42 
43 



45 
46 
47 
48 
49 
50 



11 



62 

S3 1 

54 

55 

56 I 

57 



I 7 
8 
9 
10 

l" 

I 12 
'13 



'a 

17 
18 
19 

20 

f" __ 

23 
r 2 * 

26 
27 
28 
29 
30 
31 
32 
33 
34] 
|35 
36 
37 
3B 
39 
40 
41 
12 
43 
44 
45 
46 
47 
48 
49 
50 
SI 
52 
53 
54 

56 .'■;■' 

56 
57 



IDLCLARATIQN IS A SUBSCRIPTED IDENTIFIER* A SIMPLE IDENTIFIER UR A 
SDEFINE* IT IS ENTERED INTO InFOC ** * J . 

: _ "jj.g N " IN D.l£A. T E S TH AT _ T HE D E ClAHA I IONS BELO i\ G TO A HLUc:K UR JUST 
THE SPECIFICATION PART BELONG TO A PROCEDURE HEADING. 
VALUE OF RESULT! 0: NQMRE DECLARATIONS. 



.038*2000 

$038*3000 

JJDLaflV.ftQ.O.Q 



18 STOPPED AT 



3: 

5« 



STOPPED 
STOPPED 



AT 
AT 



_LN_D-QF_-FlL£t_ 

"BEGIN", 
"END". 
^ J . C . JL AC- 



Q 5/0 l/ 6 fl- 



J03895000 
J03896000 

J 0.3.8V 7 .0,00. 
103896000 
♦036**000 

HO 3*000.0.0. 



VALUE 
_B£AL 



bgn; 
.rani. 



J039UJ000 

03902000 

_ 03903000 



BEGIN 



REAL 
.D££1M„ 



i#x; 

NBsBQni.EANf B(iN)»i. 



03904000 

03*05000 

-03906000- 



LABEL Ll»L2#L.3*L4*L5>L6'L/#L8'l.9> 03*07000 

LABEL LL,LC,lF,L0#lT#LA>LX1'LX,LF.; 03*08000 

IP BOOLEAN (DEBUGN).-lHEN URllLtLmuM<k*.V.SXLLLAR.V. t NXTiRGN 11 039-09-000 

BGN*REAtCNUT BOOtt ANCBGN ) ) ; 03910000 

LI * IF BO0LEAN( UCHECKNEXT(l) ) THEN 03*11000 

■— ..GSLJ.a^lF.-U.L.JMLtL I X1.-ELS£ iJLi - _ . 03 9.12 00 

IF 1*2 THEN 03913000 

IF NXT,C36.6]* , 'J ,, THEN GO TQ Le ELSE 03914000 

_ LXi. -BFfilAi 1 THE Ml F X T _LS_ A_S££.C I A L .CHR-Q R A .Q. I G I J-*-.-. 03.9X5o.aO 

IF DFINE TmEN ERRDFN<.1 ELSE 03916000 

IF 1 = 2 THEN CVl9].C36.o]«-ERX«-l ELSE 03917000 

_££GlJ^i:aP_Mi-_iU.9J^.Li6J.61±.l...EN.DJ_ _ QiSlAQilQ. 

IF BOOLEANCI) THEN GQ TO LXlJ 03919000 
LL* LFX*NFX; I*REAL ( SK IPUNT IL C"J " ) ) ; LFX+i; 03920000 
4F RQOLEAN(I) THEN 03*21000 



LXll 



BEGIN DECLARATIONS GC TC LE END; 
IF NOT SCANC1) THEN 
-LE. G EN ER AT E THE N E DIT lNG( 1 / NCR )/ G Q TO HJ 



03922000 
03923000 
03*24000 



END; 03925000 

IF 1*0 THEN % DECLARATION EXHAUSTED* START STATEMNT , 03926(300 

GO TO IF BOOLEANCU BALA BAL Ad )) THEN LXI E LSE LE i 03 927 000 

IF IFX>DFX THEN GU 10 Hi % DECLARATION EXHAUSTED. 03928000 
IF IFX<9 THEN GO 10 L7; IF 1 f- X S 1 9 THEN GO TO LTJ 03929000 
IF IFX = 43 THEN * "DUMP" I S__ A J_ 4 3 IN INFUC«** J. 03930 00 



L2« 



L3J 



IF NB THEN GO TO LX ELSE 03931000 

GO TO IF BOOLEAN(USTATEMENT) THEN LX ELSE LU 03932000 
IF IFX*40 THEN X "MONITOR" IS AT 40 IN INF0[»j*3, 03*33000 



IF NB THEN GQ TO LX ELSE 
BEGIN X«-i; 

LFX4-NFXJ RFX+RFX+ll j 



X CHECK FAULT DECLARATIONS. 



I*CHECKNEXT(l>; LFX*i; RFX*RFX-1U 

IF BOOLEAN(I) THEN GO TO LXl 

IF I/O THEN GO TO LXf IF IFXSRFX THEN GO TO LXJ 



03934000 
03935000 
03*36000 
03937000 
03*38000 
039 39Q0Q 



IF IFX>RFX+11 THEN 

GO TO IF t)QOLEAN(x) THEN L2 ELSE LX; 

I»DONTCARE(0); 



03*40000 
03941000 

03942000 



IF 8QQLEANU*CHECKNEXTU)J THEN GO TO LX; 

IF 1*2 THEN GO TO LX; 

IP NXT . t36l<H» n » w -THEN G Q TO L 2J 



03*43000 

03*44000 

.Q 3945 QQQ 



IF NOT SCANCD THEN 

IF GENERATE THEN EDI T ING( 1* I ) ; GO TO L3; 

end; 



03*^6000 
03*47000 

3*48 000 



IF IFX*37 THEN * "SWITCH" IS AT 37 IN INF0C*»*3. 03*49000 

BEGIN 03**0000 

IF HHOi FANf I t DQNTCA R F r Q) TH FN G G TQ LXJ 03*51000 



• • 



;? 

6 

17' 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

11) 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34j 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

62 

53 

54 

55 

56 



L4» 



..L.5A 



L6! 
LC: 



IF I=b THEN GO 7Q IF 
IF 1*0 THEN GO ro lx; 
.IE._ .IX X_=J_5_ JJbJUl-JL-SlULlti- H!>I *._ 
60 TO IF C I*0QMCAREC1>)*8 



1MB THEN LC ELSE L'di 



-l£_I 



IF NB THtN LC ELSE 
FXa-32 THEN __ SWITCH- 



THEN 
F-IIK M A T 



LX ELSE 



GO TO IF CI«-D 

IF NB T 

.^Q_Ifl_L£_iJEJU. 



QNTCAhECl))*6 THEN LX ELSE 
HEN LC ELSE LL' 
2JLJLii£ii-J.il..£l-$J_ 1_&]JITCH FILL 



IF NB THEN L6 ELSE L4i 

end; 

if ifx«35 then i "lis t" is at 3«s in inf0c»**3. 



IF NB THEN GO TO L6 ELSE 

BEGIN X«-0; 

IF U»BnNTcARF(la)/fl ThEN 



BEGIN 

IF 800LEANCX) THEN 
,-aO-I-HEN - : 



-If—lMl 



IF 1FX 
IF IFX 

LtUlL 



«DFX+XJ THEN GO TO L5 ELSE 

:QFX + 1_ THEN GO TO L5/ GU TO LX> 



IF (I«-CHECKNE 
IF BOOLEAN(X) 
J_«--RACKET<")" 



XTC4&"C"C36542$63 )}X8 THEN GO TO L x 
THEN LFX*NFX# 

__I_L_ - __ 



IF BOLiLEANCX) 

IF 1X4 THEN G 

4f._XLtCMEX*J_E. 



IF 
IF 



NXT.t36J63 
NXT.C36I6] 
NOT SCANCl 



THEN LFX«-1> 

fo lx; 

)UJULUi2_Ih£k_Aia_Ul_L)ti. 



■ "i" THEN GO TO L2> 
X"*" THEN GO TU LXJ 
) THEN 



IF 

end; 

IF IFX=32 



GENERATE THEN EDlTlKGCWUJ GO TQ L5J 

THEN * "FORMAT" IS AT 32 1NF0L *^ * J . 



03952000 
03953000 

03955000 
03956000 

o-3-9_5j.aao- 

03958000 
03959000 
.033d&Q.Q.Q 
03961000 
03962000 
..039.61000 
03964000 
03965000 
0-3.9.6.&0..00- 
03967000 
03968000 
0-396-9000. 
03970000 
039/1000 
.03.97.2.0.0.0.. 
03973000 
03974000 

.qjazsloiiq. 

03976000 
03977000 

Q3.9_ZkO.00 

03979000 

03960000 

JUSLflJLQflfl. 



03982000 
03983000 
Q3964Q00 



IF NB 
IF IFX 

J____li__ 
IF C 
IF ( 

B£GlL 



THEN GO TO L6 ELSE BEGIN x*U GO TO L5 END; 
»30 THEN * "LABEL" IS AT 30 INFOC***]. 



1«-Q0NTCAR 
I4-CHECKNE 

N 



EU))/8 then gu to lx; 

XT C 4 _","[ 36:4^:6] ))=8 THEN 



IF 
IF 

end ; 



NOT SCANCU THEN 

GENERATE THEN ED.I T INGC W 1 )i GO TO L6; 



03985000 
03986000 

J3._9d7QjQJJ.. 

03966000 
03969000 

__JQ3_-S______a, 

03991000 
03992000 
03993000 



IF 
IF 

end; 



*2 THEN 
Xr.C36»6J' 



THEN GO TO L2; GO TO LX; 



03 
03 
03 



994000 
995000 
9V6QQ0 



IF IFX»28 THEN % "VALUE" IS AT 28 IN INFQC***], 03997000 
GO TO IF NB THEN LL ELSE LX; 03998000 

IF IFXj-26 THEN "X "SAVE" IS AT 26 IN INFQE»»»3, 03999QQQ 



IF NB THEN GO TO LX ELSE 
BEGIN 

IF (I«-CHECKNEXTC1 ))XQ THEN GO TQ Lx; 



04 
04 
04 



000000 
001000 
002000 



GB TO IF IFX*24 THEN LF ELSE IF IFX»22 THEN LO ELSE04003000 
IF IF**4 THEN LA ELSE IF IFXS9 THEN LX ELSE 04004000 

IF IFX>22 THEN LX ELSE LTJ ; Q40Q5QQQ 



end; 

IF IFX 

IF Nb 



«24 THEN * "FILE" IS AT 24 IN INF0C*»*1. 
THEN GO TO L6 ELSE 



04 
04 
04 



006000 
007000 
008000 



LFI 



*1 



GO TO IF (I*FILENAKE>*8 THEN LI ELSE LX* 

IF IFX*28 THEN % »Q*N" IS AT 22 IN INFQC*>*3» 

IF NB THEN GO TO LX ELSE . . , -\ 



04 
04 
04 



009000 
010000 



3 
) 

# 



| 2 
3 
It 

I 5 
6 

I 7 " 
8 

9 

10 

11 

K 



if, 

"I 

18 

,9 | 

M 

2l| 

22 

23 

24 

25 

26 

2? 

28 

29 

30 

31 

32 

33 

34 

35 

36 

I,' 



41 
12 
43 
44 
46 
46 
47 
48 
49 
50 
51 
52 
53 



54 
55 



L0: 



8EGIN x*0; 

IF (I*CHECKNEXltl))*o IhfcK GO 10 LX> 

UA*12_LhFN GQ TO IF. UX5.A.-JJd£AL_JtJL_£L££- 



JJi 



.IF 

IF 

end; 

X±.l£ 



J>XJ_- 



IFX*19 THEN GO TO Lx; 



II A «1Z_ _lH£J*_3_ELaE_ .-_*. 
IF I F X = 1 9 THEN a ELSE * 
1/ * TYPE UF "INTEGER" 
-L£X»NFX; T<-CHFCKNrxTM ,; 



TYPE OF "ALPHA". 



T Y^E, GF "BOOLEAN", 
Oh "REAL". 
_U-itU ______ 



IF 1*0 THEN GO TO LX> 

IF IFX>RFX THEN 

GO T U IF BOOL£ANCUDCLARTY PL(0 )_) 



04012000 
04013000 
Q..4O.14Q0Q 
04C1500Q 
04016000 
-0A.Qi7.fi Qfl 
04018000 
04019000 

ji4i)zoooo. 



IF IfX = 2<4 THEN 

GC TO IF X*J THEis LX ELSE 

IF NB THEN Lfi ELSE UFJ 



1H£&_LX_£LS£_LL 



171 
L8« 



IF NS THEN GO TO IF IFX*4 THEN 
GO TO IF IFXs9 THEN L8 ELSE IF 

IF_J F JL?.4-JitE-N. _LA_£LS£_JJ{1 _._ . 

X«-C> 

IF IFX=9 THEN * "STREAM" IS AT 
NB._4.HEM. .G0._ JH_ J»J__£L.S_E 



La ELSE lx; 

IFX«6 THEN L9 ELSE 



9 IN 1NF0C*,*J, 



_I£. 
GC 
LX 

J_F 



TO IF 800LEAN(I*STREAkPROCEDURECBOOLEANCx))) then 
ELSE Li; 
It 1 * 6_ Jii£AL__l__!£aQ££JlkfiL."_.-l S aT 6 IN INF Q L* __*_lx._ _ 



L9* 



LAS 



IF NB THEN 

IF BOOLE.ANCX) THEN 

-B1.GLN-.^.L£X«-.NF_XJ. U.C.D.ECiiNE.X.I.a.ly LfJLtXl _ 

GO TO IF I/O THEN uX ElSe IF IfXsRFX THEN LX EL^E 

IF BOUlEaN(I<-DCLARTYPECO>) THEN LX ELSE Lit 

ENn ELST GO TO L6 FISF 



GO TO IF 

ELSE LU 

J1__1LX__1 



800LEAN(UPR0CE00R(dU0L£AN(xn) THEN LX 
-THEN * "ARRAY" IS AT 4 IN InFOI>»* ], 



04021000 
04022000 
040 23000 

0*024000 
04025000 
, 040 26000 - 
0a027000 
04028000 
Q4029ono 

04030000 
04031000 

.04.0-3.2000 - 

04033000 

04034000 

-Q 4035 Q.O.Q 

OaO J6000 
04037000 
-QAil^aOjOO... 
04039000 
04040000 
040-44-000 



RE 
.CO 
I 
IT 



LE: END 
al procedure 

MMENT , 



GO TO IF BOULEAN(UDCLARTYPECl)) 
IF N6 THEN GO TO Lx; 

.bUTLDEF lN EJ fiQ_li_._Lil 

DECLARATION/ 
BLCCK(PGN);. 



040^2000 

04043000 
04044000 



THEN LX ELSE Hi 



THIS PROCEDURE 
HERE IS A "BEGIN" 
N_X AS£_D £_4 PROCE 



PROCESSES A BLOCK. "8GN" 
TO BE EDITED FIHST QR THE 
D URE . 



IS A SWITCH TO TELL IF 
"atGlN" WILL COME LATER 



04045000 

04046000 

..O40__.7.Q.0-0 

04048000 

04049000 

,04050000 



VALUE OF RESULT! 



I 
I . 



0: THE BLOCK IS COMPLETE* 
l: STOPPED AT Ei\Q-Ur-FlLU 
5t STQPPlD AT " l N D"-^. LQNLX 



_1 



0405*000 
04052000 
04053non 



HhFU BHNbQ? 



04054000 
04055000 
0,4056000 



• «#•»••••»*••#•»«'•»# 



*«*.«•*»*••»••••*•••*• 



-VAU1EL 



. 8 6 N* 



REAL 



BGK, 



J. C. PAD 05/01/68 ---------104057000 

04058000 
04059000 



•••**«••••••,»*•,*,,»,*,,; 



ARR AY 



BEGIN 



H G G [ 1 1 ] ; 



IF 



REAL 
LABEL 
BOOLFAN(QERUfiNl 



T»I*STIFX»ST|J[; 

L1#L12#L2*L3#L3I*L30*L32,L3 3#l34,l4,l5,LE; 
THEN WR1TECFQU>DB6<" BLQcK",NXT* BGNtNFX, OX 1 1 



04060000 
04061000 
04Q62Q00 



JLXL 



5TIFX*NFX; stdx«-dx; 
IF BOOLEANCBGN) THEN 
BEGIN B\ KCNT + RI-KCNT + i; 



04063000 
04064000 
0406500Q 



IF NOT LSTO THEN GO TO L12J 
IF FRSTPRNT THEN 

B EG IN frstprnt*false; 



04066000 

04007000 
04068000 _.. 
04069000 
04070000 
Q0 P7 1000 



!"!• 



2 
3 

4 
5 



10 



m» 



2 

I 3 . 

U I 
s' 

■;i- 

a 

10 

11 

12 
13 
14 
15 

lie 

17 

lie 

19 

20 

I 21 
11 

ja 
(is 

I26 

T- 

28 
29 

30 
31 
35 
33 

•M 

1 3b 

pel 

[37 " 

:« 

39 
40 
41 
M. 
43 
44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 
55 
56 



IF CT«-T1 OIV 3600)<1«< THEN I*"A" ELSE 
BEGIN IF T>1* ThLN T*T-12' 1*"P" END* 

-WRi ix.iJ-iiuiJifaj»Xtiiai\-cu j£u.i.4J-^ 4-i*jjl>x 4 2 », 6, 3 * 

t0,c30i123#t#(t1 mod 3600) oiv 60m)> 
end; 

XE. nnNE..Iii£N . 

BGNEND(FOU(Q)M»BLKCNT»STR[CM8]M#STfUO#173# 

BGGL03) ELSE 
I F N £„0„5 MC D-2 . J_hE N.. 



oao^ooo 

0407300Q 

.jQii..0I...4QQiJ. 

04075000 

04076000 

XUflZJ-Qflfl.. 



.L1.2J 



L2J 
L3: 



P0NEND(F0UC0)>l'BLKCNT»PPC[ln,0#BGGCn#bGGC03)EL 
IF NCOsNCD-1 THEN 
BGNEN D(FQ u(0)»l» BLKC NT*PC(U3#0»BGGtl] * BGGJLO ] j EL 

eGNENC(FOU(0]» 1# BL*CNT# CV C U3 » 5» BGGC 13 » BGG[0] )> 
RELEAbf.CFOu); 
1E_£LNLSA.1 E T H,lN_£J£I,,TlMi,Uj_N.g RH _..._ 

end; 

IF BOOLEANCUOECLARAtlONcBGNJ) THEN 

. LF.._I »i_LfciEA 

BEGIN 6cGC*«-l' GU TO LE END ELSE 
IF 1*3 THEN 

6..E.G.I.N .. __ „ ..„„, 

IF BOOLEAN(BGNi THEN 

GO TO IF B0QLEAi\CI«-8L0CKU) ) THEN L2 ELSE L5; 

_BfiNtii_ GJQ IXL_kli..._JLXbJ.3_l» FOR PROCEDURES. 

END ELSt 

BEGIN % AK "END" IS ENCOUNTERED. 

- IF-BH.Q.L.C AAX-B^tU XfcOJt- - - - - — 

BEGIN % SKIP COMMENT AFTER THE WORD "END*. 
IF MOT LSTO THEN GO TO L3Ii 

IF. OF INK THEN 



BGNEND(FGU(0>»O*flLKci\T*Srrt[0.»483*l'STRlOM73> 

BGGtOJJ ElSE 
.If-NCO »N CJg.^ T HFN — 



L3I t 

LJOl 
L32i 



BGNEND(Fau(0)#0»8LKCivT»PPCCH3#0,BGGCn*8GGC0]) 
ELSE 

-lF_.ACQ.s.N CJ3-_L_.J tLEA _ 

BGNtl\iDcFaucO>*0*HLKCl\T#PCCll J#Q»BGG[1]#BGG[0J) 

ELSE 

B GjjENDlF j3.U.C_g \ 1.Q l .eLK . C in T»CyCii]jQ,BGG[l]jBGGCQ]); 

RELEASECFOUJi 

BLKCNT>BLKCNTU 

IF GENERAT E THEN E DIT ING( 1> NCR ) * % "END" IS IS 

lfx«-nfx; enlcmmt«-trce; 

I*CHECKNEXT(1); LFXol; 
I F BL OLE ANCn ThLN 



04078000 
04079000 

040mo_q_q. 

SE04081000 
04082000 

S 60408 3000 
00 8 4 000 
04083000 

MOiJAQ.Q,Q 

04087000- 
04088000 

...JL4Q.fl.9Jl.QJL 
04090000 
04091000 

04.9.9 2LQ O.Q. 

04093000 
04094000 

_ QA095Q.QQ. 

O4OV0OOO 
040s*7000 
.04 0-98000 
04099000 
04100000 

04-101-000 

041U2000 

04103000 

_ flAiiumaQ. 

04105000 
04106000 

..QJ.1.0Z.0.QQ 

041U8000 
04109000 

_... 0.4.1.10.0,00... 



041U000 
04112000 
-EJJA. U3Q 0JL 



ENDcMMT*FALSEi 



IF 1*3 
BEGIN B 
IF 1.2 



THEN GQ 
LOCK*!* 
THEN 



04114000 
04115000 
Q4U6QQQ, 



TO L30 ELSE 
GO 10 L33 END/ 



GO TO IF I «-NXT . C 36 I 6 ]*••; '» THEN 

IF U"." THEN L33 ELSE 
If. S CAI\t I F NXT, [4 2t6]«<i ThLN 



THE8 L32 ELSE L30; 
GO TO IF JXO THEN L32 ELSE 
IF 1FX*0FX*9 THEN L33 



L33 ELSE 

1 ELSE 0) 



04117000 
04116000 
04H9Q00 



04120000 
04121000 

Q4 U 2Q00- 



JLLSE % WORD "ELSE 



04123000 

04124000 

'. 04125Q0 



L33: 



I 
END ELSE 
IF NFX>5T 



F IFX=0FX+11 

HLCJCK*5; 
IF X THEN 



THEN L33 ELSE L32; % "UNTIL' 



,04126000 
04127000 
04128000 



*1 



BEGIN INFOREMOVE(STIFX); UX*STUX END; GO TO LE; 04129000 
END) 04130000 

IF BQOlEAN(BGN) THEN GQ TO L5i 04131000 



• 



6 

o 
Q 

Q 



L34t 
L4« 



IF fiJOLEAN C I«-BaLa. AI.AC 

GC TU IF 1X3 THEN L.2 F.L 
______ _.Q_ £ AN ( 1 + Bt.OC K ( l )) __ 

IF NX.. C 36 : 6 .«"*" THEN" 

BEGIN 
IP DFl NE THEN EHRDF N* 



. J THEN 

5E 

IJd_L__.______5_ L34 EL-E 



GO TU U33 ELSE 

1 EL3E CV. 9...36I6.+ ERX. l; 



LABEL 



L5: 
LE» 



IF NQT SCAN(l) THEN 

if generate then ed i t i ng c 1 * 1 ) . go to l34; 
enc; 



04132000 
04133000 
04134000 
04135000 

04136000 
04_U7QQ_£ 



END 



dc until boolean. u5tatement )> go to l2i" 
block; 

L 1.L2*L3,L9*LS; 



COMMENT 



INIT 
FIRS 



TC#DATECTIkE(C)>; 
TU.T1ME<1) DIV 60* 

. .. _._ JL iillMJ Ll LL JDn-Mi 

blk «•" "' 

eitnine.s + 9999999vj 

I._C.y.Rl_.__?.__IL_!Ji____!___.)i 

. rstpri\t + tr u e> 
INv*0_i_li : a_ : 5 J ^ 

__D.___C_.L_C. ilQ J _i. ._ 

ADDS . (CED»CVtV]); 

aoosS(est#ev[0] ); est* eet «-est (4 3 1 30145:32; 

-- -ums&x 4-^ ux.i-t-0-j-i_i_.- _ __ 

ACCSS(QST#DCHOJ;> 
NCD*UUTN*CbX«-LDF*I.LKCNT<--i; 

h£._t.LE;_t___*4_.__ 

IAULY CREATE THE I N^CC * # * ] WITH 
T CATAGORV Is THE RESERVED WOR0S 



04138000 
04139000 
041-.QQ0 Q 
04141000 
04142000 
■__-i* 30. Q 



-£LI.U_-JU^I3IXe_____l_ 

"6UEFIN"* "EOOOOOOO"* % 
".ARRAY"* % 

. "9_.RU.CE"* __gj_______ _________ g 



all the reserveo words, 
fgh declarations; 



,, 6STREA H #"M0OO00O0»» % &, 

"4REAL "* * 11, 

-__L- T F r,^___B_l__L____._. _1_ l__. 

".ALPHA"* X 16* 

". bObLE">"ANOOOuOO M * .* 18* 

. " .1 CI W N ___ ._ _ ?1 . 

"4FUE "* X 23, 

«.save % % 25, 

,-!15_ AL . E __. % ?7> 



G> I U* 2/ 
3* [43* 
______■ 6 J * 7 > 



04144000 
04145000 

___UJiA_._Jl. 
04147000 
04146000 

...Q_tlft_Q_fl_ 
04150000 
04151000 

juxuzsxxa. 

04153Q00 
04154000 

■ O4-155Q0Q.. 
04156000 
04157000 

.QillJjilXXOil... 
04159000 

04160000 
-Q41610Q£L.... 



t 93* 10. 
[12], 
.JJJ.__.__5_. 

cm* 

C193* 20* 

L.2,.* 



04162000 
04163000 
04104000- 



"5LABEL", 
"6F0RMA"*' 
"4L I ST . " 



C243/ 

[263* 

______ 



'TOOOOOOO"* 



"6SWITC". 

"7M0NIT W » 
"4DUMP ", 



♦•HOOOOOQO", 

"osoooooor* 






29* 

31. 



C303* 

C323* 

-L3 5 J> 



04165000 
04166000 

.0___7_1___ 
04166000 
0^169000 

..OJt.li..Q..Q.__. 
04171000 
04172000 

JL_ 1 7 3._0_. 



33* 



" 000000"*" 00000000"* 

ev[03«-i«-q; 

BO BEGIN 



36, [373, 
39. [403* 
42, [433 * 



38, 
41* 



04174000 
04175000 
04 17600 



IF J«-CCEV 
TRNSFWQSC 
nFX. INFOE 



END UNTIL I 
COMMENT SECOND CATAGCRY IS TH 

. _ FILL IMFHCI 



U3M.NF0.1. I. j, 
EVC2J#INF0C1,I.. 
i.TRY(EV,j,gi; 



C12*63+2),£39»63>0 THEN 
I3#v»)i 



04177000 
04178000 
04179000 
04180000 
04181000 
04182000 



NFOt 1*I«-I + J+1 ] . 

e absolutly res 

* *3 rt ITh 



0* 

EHVED WORDS* 



04183000 

04164000 

__Li_5__Q_ 



"SBEGIN"* *' OFX+ 2. 

"3END "» . DFX+ 4, 

"7CQMME",»NT00Q0Q0"* % OFX + 6. 



04186000 

04187000 

J__L______ 



04169000 
04190000 
. 4191 



T< 



10 



18 



24 

25 

26 ( 

27 

28 

29 I 

30 



34 
35 { 
36 
37 
38 ( 
39 



44 1 

45 



47 ' 
48 



53 \ 



56 ' 
57, 



• • 



i 

7 
3 
4 
6 
6 

'-'!" 

8 
f» 

10 
ii 
i? 






13 
14 

15 

116 
17 

|18 

F' 

'21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
K 
36 



37 
| 38 
39 
40 
I 41 
42 
43 
' 44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 



55 
56 



"4tL.SE % 

'•SUNTIL"* 

J12AH !Vt. 



"30UT 'V 
"2IF % 

JIAlUSJk 1±-.,. 



% DFX+ S>. 
* UFX+11. 

* DFx+ib. 

% DFX+17. 
JL J3£jt±ia*. 



"2tt0 ".» 
"2T0 ", 

"7 F0RW A "* " RJ OOO 00 u_"_*_ 
♦•7KELEA , S"SE000Uo'b"/' 
"4FUL M # 
JlMlIlLJLe. . 



* 



DFX+21. 
DFX+23. 
...illxj^^... 
DFX+28. 
DFX+31, 



M 2D0 
"20R 
-" 3 A N LI. 



"301 V 
-'l^FHR- 



"3IMP % 

"3M0J % 

" 3 N n T Ix. 

"4L0CK "> 
"4READ "» 

"JUxl£B^JL* 

"5CLnJ>E"» 
"SSPACF."* 

..llSJUajL&i'. ■*■ - _ - - 

"5WRITE"* 

"60QUBL"/"e000a000"* 

«6HC.HlN w .» Q00Q00nn«i 



"oooooo%"qooooooo"; 

13 qESTN 



COMMENT 



IF J+<(Evll3* iNFQCif II). 112163+2). [39l6]>0 THEN 

fRNSFW0S(£VC2l'»INF0tl#I*lJ#J>* 

RFX»INFQF NT«YCE V,J + 2); _ _ 

END UNTIL I.MFQCl*l*I+J + U»o; 
8B*2i INF[0]*043E1I46»2j; 

lK£_Lliir.:'J.IRUL„. , .'l.. R FX+IN F Q£LJ_H Y U-lLlxii 

lNFt!3*"5FALSE M ; RFX + INFOENTRY C I NF ,2 ~ " 



041V20C0 
04lS»3000 
.Jl4JM0iLQ.. 
04195000 
04196000 
Q4i97nnn .. 
04198000 
04199000 

04201000 

04202000 

.£A.2Qiaaa... 

04204000 
04205000 
-J2A2i!..6.0Jao... 
04207000 
04208000 

0421000Q 
042X1000 

QA212.SXDQ 

04213000 
04214Q00 

04-245000 

04216000 
04217000 
...0A£.l.a0OO 
04219000 
04220000 

...ou22xaa.o,. 

04222000 
04223000 
04224gao,., 



04225000 

04226000 

...0_4_2i.70<l.Q.... 

04228000 
04229000 



TIRD CATAGOHY Is THE RtSERvED WORDS BUT CAN BE 

FJjj...iMJiajL*i_jiJiH 

"4FLAG ", % HFX+ 2, 

M 4ZERO "» % RFX+ 4, 

"5INQEx% % HFX* 6 . 



redeclareo; 



04231000 
04232000 
04233000 



"6EXPOV M * H R0O00O00 H * % RFX+ 8. 
"6INTQV%"R000QG00 M » % RFX+11. 
"32 IP n $ 



04234000 
04235000 
04236Q0Q 



"2LN 
" 2 N C 
"3ABS 



04237000 
04238000 
Qft23900Q 



"3C0S 
"3EXP 
"3SIN 



04240000 
04241000 
04242000 



"3DBI % 
"40ISK % 
"45EEK % 



04243000 
04244000 
04845000 



"450RT % 
"USIGN *» 



04246000 
04247000 

04248000 



04249000 
04250000 
0425100Q 



"*n« 



* 



12 
13 



17 ' 
18 
19 
20 < 



29 1 
30 



33 

34 
35 ' 
36 
37 
38 * 



e 



50 



52 



56 
5? 



'A 

o 
Q 



\ 

5 
6 
7 
8 
9 
10 
It 
12 
13 
14 



17 

lis 

K 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 

«9 
5« 
51 
52 
53 
54 
55 
56 
f 1 ' 



" 4 T i y e " * 

"4PAGE ", 
JLMIOI-Hjl. 

"5BReAK"# 
"EMERGE", 



04252000 
04253000 

0425500Q 
04256000 
Q4257000 



"5PRlNT% 

"SPUNCH'S 
SPURGE"* 



"6ARCTA , % ,, N0000Q0Q"> 

«6ENTiE'S w R0000000 M * 

■l'6RAND0"» w MQ0noQOn , i^- 



04258000 

04259000 

■ 4 2 60 .00-0- 



"6REVER% 
"6SEARC% 
"6SERT A"t 



"50000000"* 
"MOOOOOOO"* 
"I.QOQ OUO Q" * 



04261000 
04262000 
'(263000 



04264000 
04265000 
Q4266000-. 



"6UPDAt w » 

"000000% 

- -I_fcCJL 

OG BEGIN 
IF J4-CCEV 

ibju&ijio-U. 

CFX*INFOE 

END UNTIL. I 

-CLQMME.M T C8£A T.£_ELs£uHa_Jl££Usl£3. 

i\fc0 3«--i; 
e. v r o J «■ " t * 

_waiI.E_LQLSKJL 

INFtl]*BLK* 
EV[0].[24»6 

_W.RlI£XDJL§JiI. 



"eooooooo"* 
h oooooooo m ; 



cu*-i«nfoci* I J J 

E.MX2J.*ia\IFQ[XU 
NT«Y<tV* J + 2H 

mfoci* i«-i+j + n 

FOR ,,,B.R.ft_F.. 



,[12*6J+2),t39»6]>0 THEN 
*4..3*-JJJL , 



*o; 

1^._L...U>S»LF.Qj 



INFCll.tie: 
£V CO 3 . [<24« 6 

wRITE CnFSK[ 



'•; E0ITINGC1 
UilllJJtOlLiJLLL 
"2LB ,, H2*30:ia 
]*"]"i EDITIN 
!!_£_<_ J* l._f.2*C 



1.1*1 Li .._ 

3; cfx* 

QCl»5)i 
LL±1U 



£JULAL-LQ££Ak&£i 



6]*"rt"i CF X«-I 
3<-"s'S EUITIN 
L&E12J±Z1iJL2-l£ 



INF0ENTRY(INF#3); 
ClVALin^fALSEJ 



04267000 
04268000 

OAZflJunia. 

042/0000 
042/1000 

.niuzaofljo.. 

04273000 

042/4000 

LXfijJfJjilE_Si_ .Q 4 . 2 7 S-0-0-0- 

042/6000 

O42//QO0 

.&&22&S1QJL. 
042/9000 
04260000 

J1&2&1QSJL.. 



infcu 

EVC03. 
ftBJLlfLt 



Ci2* 

[24*6 

OEM! 



INFCU 
EVCOJ, 
wRTTEC 



243*"3EQL W ; 

l + n t"i EOITUn 

I_NJLLli.tiliI2.r_i: 

1 o 1 - ft & L rtll' - •■■ 



nfqentry 

G(l»5); 
,H * J ) l— 



( INF<»3)/ 

CIV A LI O+FAL SE , 



04282000 
04283000 
04284000. 



C18:l8J*"i\EQ"; CF 
[2 „, 6 - - - 

OFSKC 



FX^IiNFOE 
GC1»5); 

IL*_L_J._. 



NTRY(INF*3); 
£l.-.AtID*il ALSE f 



>]♦"<"# EUIT IN 

:in F[<;j«-4]>12»c 

I < A 1 . If I (. P II • .* *. 



X«-lNFfJ£N 
GC1*5)> 

n*j); 



trycinf»3j; 
civalio»false; 



04285000 
04286000 
-_Q____J_2Q.Q.Q_ 
04288000 
04289000 
04290000 



INFC13 . C18:i8 3«-"LJ>S"; CFX<-INFOEN 
EV[03.[24*63«-"S"; EOITINGC 1*5 }; 
NRlTE(DFSK.lNF[2J»5 3».2»CI.*.>/ 



iNFCii.cie: is j*"leo"; u xmnfuen 

EV[0J.[24*6J«- ,, >'S EOITINGC 1*5); 
MR_Tl_CDFSK..NF.2J»6J».2*Clt:*3.; 



TRY(INF*3)J 

civauo+false; 



04291000 
04292000 
04293000 



iKFtll 

ev co3 • 

WRITEC 



TRYCINF*3); 
CIVALlQ -FA USEi 



04294000 

04295000 
04296000 



.[18.l83*"GEQ«J CFX«-II\FQEN 
C24I634.">«; E01TINGC1#5); 
OFSKClNF[23»/3>12^cn»J?J 



TRY(INF»3)j 

civalio*false; 



04297000 
04298000 
04 2 9 9 QOQ 



INFCU 
fcV[03. 
HRITEC 



,[18J 
[24*6 
OFSKC 



183«-"(iTR M ; CF 

j«- M x"; EDiriN 

IiyiFC23»DX»83*l 



INF[n.Ct2»363* M 5TlMES«; 
FILL XALGC*3 WITH 
"BY M ,?QO00QUQO w * 



X«-INFOt;NTRY( INF'3); 04300000 

G(l#5); 04301000 

2>CIl*])J C1VALIP»FALSe:J 043U2000 



CFX*INF0ENTRY(INF#3); 



04303000 
04303010 

04303020 



"SCAN %"000O0O0O"» 
"W0RDS , %"00000O00 M * 

"REPlA ,, >"CEOUOOOO"> 



"PO 

M BY 

JOSLL 



INT% 
Q M » 
■AN_t w _ 



04303030 
04303040 
04303050 



"£R000000 H # 
"OOOOOOOO"* 

"noooo g oQ" ! 



04303060 
04303070 
04303080 



• • 



1 

!* 

3 

4 
5l 
'6 
/ 
8| 

- 

in 
ii 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2.4 

25 

26 

27 

2B 

29 

SO 

31 

32 

33 

34 

3b 

36 

37 ~ 

ib 

39 

40 

41 

<U 

43 



45 
46 
47 
« 
49 
90 
51 
52 
53 
54 
55 
56 
P 



LI a 



.L2JL 



L3« 



L9» 



"WORDS"/ "QOiiOuuOQ"/ 
"REPlA"/"CEQ00OOO"» 

.._7£mJsa. , .!. J i. , . , iKilfikSiafl. f le. _ _ _ 

m ooooo% m ooooqooo h ; 

READCPACHCnOJKLEJ; TRNSFWDSCPNQ/PACh(9)/l); 

_XV-W-lfcCfca*4Ji¥-i LSL±£LDJ , 



OCLLAR«--(ACTCU*aCT[23«-1); 
LST*-a; m-REALCSCAiMU) ); 

JHilEiilA£iLiiUi l_-L£__IHt l.SJ_..CJvH.U._I^._XrX-AJillj!..„SIAHl. 

* tq function immediately, 
if ci«-checknf.xtc4))«2 then 

-B EGIN - 



IF NXT.C36I6]* ThLN BEGIN STRING; GO Tu Lt ENU/ 

IF NOT SCANCIF NX T . I i*2 : 6 3 = 4 THEN 1 ELSE 0) THEN 
4£-~aLalL&*l£ THUS EUlUNtU-ifiHR),;. GO TQ L if 



END ELSE 
IF 1*5 THEN GO 
■■4-E—f -1— E-HEN BE 



glA. 



TO L2 ELSE 

Thl l + M GQ-TQ-L.9--ENn8 



IF 1/3 THEN GO TU l 1 / 

IF BQQLEANCI*8L0CK(1)J THEN 

IF 1 5 1_ Tri£N jLESLh '£±21 ^0 -TO 



IF EOF THEN GO TO 1.3; 
IF NXT*4<i'\ H C36!42:6j 
EEGXN Z»QJ : 



L 9_. XN £. JLL S £ fi U_TJB-L3i. 



TH£N 



IF NOT S C A m ( 1 ) THEN 

IF GENERATE THEN E D I T X ,\ G C I * 

END ELSE 

BEGIN Z«-i; 

IF DFINE THEN 
...ILQ_J^Iii£nUIJJM.lL_jmT„ji^LNL 



d; 



ELSE- 



04303090 
043U3100 
...CLa.iUJjLlJJ.-. 
04303120 
04304000 

_aiaii5flnx>.~. 

04306000 
04^07000 

..HA 3MQ.Q.Q 

04309000 
04310000 

.4U311G0S...- 
04312000 
04313000 

._aA.JX4xi.o-Q 

04315000 
04316000 

QAJXiac-Q. 

04J18000 
04319000 

.0_4310QJ3.Q 

04321000 
04322000 

QA.12.aOUO 

04324000 
04325000 
04326000 
04327000 
04328000 

jQAliSQUJl 



PEGIN 
IF 

__£VJL 



NOT GENERATE. THEN STAH 
0]«- 0& w . w [im42»63; EC 



TGEN/ 

iting(1»1); 



04330000 
04331000 
04332000 



end; 
end; 

IF CIVA 
IF QUTM 
BEGIN 

iF GUT_N 
BEGIN 6 
IF 2 = 3 
BEGIN 



kl.D_.lHEN...EOlTi.NilLQ./AVC 

<NCD"2 THLN 

UTPOTCPPCJ; r]LTH«-<JUTN + 
NCp-2. ThLN 



04333000 
04334000 

IL 5.4J.35.QJ3.Q 

04336000 

i> outputnewCncd-2) end; o4j37qoo 

043J8000 



utput 

THEN 
FILL 



(PO> outn«-outn+i> oltputnewcncd-1) end; 

A L * 3 WITH 



04339000 
04340000 
04341000 



" XXX XX XX X*'/" t^D 0F"#" FIL 
"U OF" PRO"*"GRmM "/"XXXX 
"XXXXXXXX"/"XxXXXXXX";" XXXX 



E H(_"*"T NOT EN"/ 
XXaX"'"XXXXXXXX"' 

xxxx"/"xxxxxxxx"» 



04342000 
04343000 
04344000 



"XXXX 

WRITE 

JA P EL5 



XXXX">" 

CF0U»15,A[*]); 



'* M xxxxxxxx M ; 



04345000 
04346000 
04347000 



IF OUTN 
BEGIN 
IF Z>1 



= ncd- 

UTPUT 

THEli- 



1 THEN 

(CV); nuTN*UL7N+i; Outpotnewcncd) end; 



04346000 
04349000 
04350000 



BEGIN 
"XXXX 
" A P 



FILL At*3 WITH 
XXXX%" tND .OF"/" PRO 

E R I O ' V ' P xxxxx"/"xxxx 



GRAM"/" WITHOUT"/ 
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